(format nil "~2,1,,'0@A" 1)
かな。