Ticket #2814: test2.hs

File test2.hs, 205 bytes (added by celes, 5 years ago)

small version

Line 
1data V = Fun (V -> V)
2       | Str String
3
4app :: V -> V -> V
5app (Fun f) v = f v
6
7unlist :: V -> String
8unlist l = s where Str s = l
9
10m=Fun (\a -> a `app` a)
11
12main = interact (\input->unlist (m `app` m))