POT PROGRAM

GREETINGS FROM ROMANIA! IN THIS THREAD YOUR MISSION IS CODIFY A PROGRAM TO ASK FOR A NUMBER AND RETURNS THIS NUMBER TO THE POWER OF TEN. YOU HAVE USE YOUR FAVORITE PROGRAMMING LANGUAGE AS ONLY ONE CONDITION.

I FOR MY SELF USE BASIC, HERE IS MY CODE:
10 INPUT "Tell me number and I will do magic: ", N
20 LET R = 10
30 FOR I = 1 TO N
40 R = R * 10
50 NEXT I
60 PRINT "THE RESULT OF THE POT IS "; R
70 END

THANK YOU.

(progn (write-line "give number??!") (print (let ((f (lambda (f n r) (if (= n 1) r (funcall f f (- n 1) (* r 10)))))) (funcall f f (read) 10))))