aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Arrows/rec-multiple.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
module ArrowRecMultiple where

import Control.Arrow

f g h = proc x -> do
  rec y <- g -< x + 1
      z <- h -< y + 2
  returnA -< (y, z)