main=interact$f.last;f c=c<$[0..9999*read[c]]