on d82d607 help sign in
14 lines 188 B history raw
1{-# LANGUAGE Arrows #-}
3foo f = proc a -> let b = a in f -< b
5bar f g = proc a ->
6 let
7 h
8 = f
9 . g a
10 j = g
11 .
12 h
13 in
14 id -< (h, j)