swapLetParser :: Parser Instruction
swapLetParser =  string "swap letter " *> (SwapLet <$> anyChar <* whiteSpace <*> secondPart)
  where
    secondPart :: Parser Char
    secondPart = string "with letter " *> anyChar
swapLetParser :: Parser Instruction
swapLetParser =  string "swap letter " *> (SwapLet <$> anyChar <* whiteSpace <*> secondPart)
  where
    secondPart :: Parser Char
    secondPart = string "with letter " *> anyChar
swapLetParser =  string "swap letter " *> (SwapLet <$> anyChar <* whiteSpace <*> secondPart)
  where
    secondPart :: Parser Char
    secondPart = string "with letter " *> anyChar