foo2 a =
    putStrLn("a="++show(a))

foo a =
    do
        putStrLn ("a="++show(a))
        foo2 (a+1)

main = foo 1