{-# LANGUAGE Arrows #-}
module ArrowLayout where

exp = proc () -> do
  rec let e = 1 + i
      i <- integral -< e
  returnA -< e