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