>>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))
white $ pictures ([flag, rotate 45 $ pictures (map arm [0..3])])



In Haskell with Gloss.