#!/usr/bin/perl
map--$.>9||print,<>