pNum :: Parser Integer
pNum = do
    sign <- option ' ' (char '-')
    n <- many1 digit
    return (read $ sign : n)

-- The string "What is" or "what is" if you don't  capitalize.
pNum :: Parser Integer
pNum = do
    sign <- option ' ' (char '-')
    n <- many1 digit
    return (read $ sign : n)

-- The string "What is" or "what is" if you don't  capitalize.
pNum = do
    sign <- option ' ' (char '-')
    n <- many1 digit
    return (read $ sign : n)

-- The string "What is" or "what is" if you don't  capitalize.