:: IO ()
main = display (InWindow "Dibujo" (500,300) (20,20)) white dibujo

dib
main :: IO ()
main = display (InWindow "Dibujo" (500,300) (20,20)) white dibujo
main = display (InWindow "Dibujo" (500,300) (20,20)) white dibujo