stepAll :: Placement -> Step -> [Placement]
stepAll (Placement o pos) (Step t n) =
  let o' = turn t o
      allPos =
        [ move o' i pos
        | i <- [1 .. n] ]
  in Placement o' <$> allPos
stepAll :: Placement -> Step -> [Placement]
stepAll (Placement o pos) (Step t n) =
  let o' = turn t o
      allPos =
        [ move o' i pos
        | i <- [1 .. n] ]
  in Placement o' <$> allPos
stepAll (Placement o pos) (Step t n) =
  let o' = turn t o
      allPos =
        [ move o' i pos
        | i <- [1 .. n] ]
  in Placement o' <$> allPos