(let ([a (read)])
  (cond
   [(< a 10) (print "00" a)]
   [(< a 100) (print "0" a)]
   [else (print a)]))