tup3-6.hs

module Foo where

{-@ bar :: Nat -> Nat @-}
bar :: Int -> Int
bar thing = aga + maga
  where
    t1 = (\z1 -> let mickey = z1
                     y1      = mickey
                     y1'     = mickey + 1
                 in (y1, y1')) thing

    t2 = (\z2 -> let y2  = fst t1
                     y2' = snd t1
                 in (y2, y2')) ()

    t3 = (\z3 -> let y3  = fst t2
                     y3' = snd t2
                 in (y3, y3') ) ()

    t4 = (\z4 -> let y4  = fst t3
                     y4' = snd t3
                 in (y4, y4')) ()

    t5 = (\z5 -> let y5  = fst t4
                     y5' = snd t4
                 in (y5, y5')) ()

    t6 = (\z5 -> let y6  = fst t5
                     y6' = snd t5
                 in (y6, y6')) ()

    aga  = fst t6
    maga = snd t6