this repo has no description
at trunk 9 lines 208 B view raw
1(f >> (x -> x) >> g) 7 2. f = | 7 -> "cat" ++ m 3 , m = "?" 4 | 4 -> "dog" ++ n 5 , n = "!" 6 | _ -> "shark" 7. g = | "cat" -> "kitten" 8 | "dog" -> "puppy" 9 | a -> "baby " ++ a