function factAcc(n,acc,k) {
   if n > 1
   then factAcc(n-1, acc*n, k)
   else k(acc)
}

function factorial(n,k) {
    factAcc(n,1,k);
}

function main(k) {
    n = read()
    factorial(n, main2(_,k));
}

function main2(a, k) {
    print(a)
    k()
}