again nlo nhi =
    let
        putn = putStrLn("n = "++show(nlo))
    in
        if nlo == nhi then
            putn
        else
            do
                putn
                again (nlo+1) nhi
main = again 1 10