renderPlacement :: Placement -> IO ()
renderPlacement (Placement p r) = do
   renderPosition p
   renderRotation r
renderPlacement :: Placement -> IO ()
renderPlacement (Placement p r) = do
   renderPosition p
   renderRotation r
renderPlacement (Placement p r) = do
   renderPosition p
   renderRotation r