f a b c
=> (Appl (Appl (Appl f a) b) c)

appl :: Parser Expr
appl = do
    f <- expr
    gs <- many expr
    return $ foldr (x y -> Appl x y) f gs