sieDraw :: [Char] -> IO ()
sieDraw = turtleDraw "Sierpinski" (Turtle (0,0) 0) . map toCommand
sieDraw :: [Char] -> IO ()
sieDraw = turtleDraw "Sierpinski" (Turtle (0,0) 0) . map toCommand
sieDraw = turtleDraw "Sierpinski" (Turtle (0,0) 0) . map toCommand