(princ "010")
(loop repeat (read)
    (princ "0"))
(fresh-line)