Stick man in haskell
Today some feel good code in Haskell: man :: Diagram B man = circle 1.2 # center === ((rotateBy (-0.1) (vrule 3)) ||| (vrule 3) ||| (rotateBy 0.1 (vrule 3))) # center === ((rotateBy (-0.1) (vrule 3)) ||| (rotateBy 0.1 (vrule 3))) # center which produces the following svg stick man: You need to call it like this: main = mainWith $ man