again nlo nhi =
    do
        putStrLn("n = "++show(nlo))
        case (nhi-nlo) of
            0 -> putStr ""
            otherwise -> again (nlo+1) nhi

main = again 1 10