(set-syntax-from-char #\: #\ )(setf m(read)i(read)p(read))(dotimes(a m)(format t"~D
"i)(incf i(floor(* i p)100)))