#!/usr/bin/perl
#
# Skrypt perl-a

use strict;
use warnings;

my $ii = 1;

while(<>) {
    my @line = split;
    my $l0 = $line[0];
    my $zz = $ii*$l0;
    print($ii, " ", $l0, " ", $zz, " ", $line[1], "\n");
    $ii++;
}