on d82d607 help sign in
10 lines 179 B history raw
1{-# LANGUAGE Arrows #-}
3foo = proc a-> \f b->a-<f b -- Foo
5bar =
6 proc x ->
7 \f g h ->
8 \() ->
9 \( Left (x,y )) -> -- Tuple value
10 f (g (h x)) -< y