use warnings;
use strict;

while(<DATA>){
  chomp;
  print $_,substr ($_,0,2),$/;
}


__DATA__
1234

5678

1000

1233