yc :: Expr
yc = fst ((Parse.parse Parse.parseExpr "(\\f -> ((\\x -> (f (x x))) (\\x -> (f (x x)))))") !! 0)
yc :: Expr
yc = fst ((Parse.parse Parse.parseExpr "(\\f -> ((\\x -> (f (x x))) (\\x -> (f (x x)))))") !! 0)
yc = fst ((Parse.parse Parse.parseExpr "(\\f -> ((\\x -> (f (x x))) (\\x -> (f (x x)))))") !! 0)