Rotate a square a couple of times with elm

rotateSquare.elm

square : Path
square = path [ (50,50), (50,-50), (-50,-50), (-50,50), (50,50) ]

blueSquare : Form
blueSquare = traced (dashed blue) square

rotateSquareBy : Float -> Form
rotateSquareBy deg = rotate deg blueSquare

degrees : [number]
degrees = [0, 90, 180, 270, 360]

main : Element
main = collage 500 420 [ group <| map rotateSquareBy degrees ]