val\ =readInt (2 to\scan"1"* \)(""+_+_ tail)map println