on d82d607 help sign in
12 lines 162 B history raw
1{-# LANGUAGE Arrows #-}
2foo f = proc a -> ( f -< a )
4bar f g = proc a ->
5 ( ((f) (
6 g
7 ))
8 -< (((((
9 (g
10 a)
11 )))))
12 )