#!/usr/bin/perl

use strict;

while(<>) {
    my @line = split;
    $line[0] -= 100000;
    print $line[0];
    for (1..@line-1) {
	print " $line[$_]";
	print "\n";
    }
}
