+ print (LambdaExpr _ args e) = ["\\":args] ++ ["->": print e]
+instance toString Expr where
+ toString e = concat $ print e
+
+printSelectors :: [FieldSelector] -> [String]
+printSelectors fs = printersperse "." fs
+
+printFunCall :: String [Expr] [FieldSelector] -> [String]
+printFunCall s args fs = [s, "(":printersperse "," args] ++ [")"] ++
+ printSelectors fs