pWhatIs :: Parser ()
pWhatIs = do
    try (string "What is") <|> string "what is"
    spaces
    return ()
pWhatIs :: Parser ()
pWhatIs = do
    try (string "What is") <|> string "what is"
    spaces
    return ()
pWhatIs = do
    try (string "What is") <|> string "what is"
    spaces
    return ()