main=interact(>>= \c->[1..fst$last$(1,""):reads[c]]>>[c])