-- (512,384)

main :: IO ()
main = blankCanvas 3000 { events = ["mousedown"] } $ \ context -> loop context Map.empty X
main :: IO ()
main = blankCanvas 3000 { events = ["mousedown"] } $ \ context -> loop context Map.empty X
main = blankCanvas 3000 { events = ["mousedown"] } $ \ context -> loop context Map.empty X