>>106488051
All right, I'll admit it took more than 30 seconds...
import Graphics.Gloss
flag :: Picture
flag = pictures[color red $ rectangleSolid 180 100, color white $ circleSolid 40]
arm :: Float -> Picture
arm n =
rotate (90 * n) $
pictures [rectangleSolid 10 50, translate (-10) (-20) $ rectangleSolid 30 10]
main :: IO ()
main = display (InWindow "卍 卍 卍" (180, 100) (14, 88))
Comment too long. Click here to view the full text.