testProg = Main
{ initialState = 1
, initialRequests = [GfxText red (pt 0 0) "foo", GfxText blue (pt 100 100) "bar"]
- , eventHandler = \s e -> (s+1,[GfxText green (pt 50 50) $ show (s,e)])
+ , eventHandler = \s e -> (s+1,[GfxText green (pt 50 (50 + 10 * s)) $ show (s,e)])
, windowWidth = 200
, windowHeight = 200
}