stepsP :: Parser [Step]
stepsP = stepP `sepBy1` string ", "
  where
    stepP = Step <$> (l <|> r) <*> n
    l = char 'L' *> pure L
    r = char 'R' *> pure R
    n = fromIntegral <$> integer
stepsP :: Parser [Step]
stepsP = stepP `sepBy1` string ", "
  where
    stepP = Step <$> (l <|> r) <*> n
    l = char 'L' *> pure L
    r = char 'R' *> pure R
    n = fromIntegral <$> integer
stepsP = stepP `sepBy1` string ", "
  where
    stepP = Step <$> (l <|> r) <*> n
    l = char 'L' *> pure L
    r = char 'R' *> pure R
    n = fromIntegral <$> integer