+ readPrec = parseFunction +++ parseExtern +++ (Eval <$> readPrec)
+ where parseFunction = do
+ lift $ string "def" >> skipSpaces
+ (name, params) <- parsePrototype
+ lift skipSpaces
+ Function name params <$> readPrec
+ parseExtern = do
+ lift $ string "extern" >> skipSpaces
+ uncurry Extern <$> parsePrototype
+ parsePrototype = lift $ do