parseProgram :: String -> Maybe Program
parseProgram s = fromSExp =<< parseSExp s
parseProgram :: String -> Maybe Program
parseProgram s = fromSExp =<< parseSExp s
parseProgram s = fromSExp =<< parseSExp s