command :: GenParser Char st String
command =
  do
    char '\t'
    cmd <- many(noneOf "\n")
    char '\n'
    return cmd
command :: GenParser Char st String
command =
  do
    char '\t'
    cmd <- many(noneOf "\n")
    char '\n'
    return cmd
command =
  do
    char '\t'
    cmd <- many(noneOf "\n")
    char '\n'
    return cmd