#!/usr/bin/perl -w

undef $/;
my $file = <>;
my $i   = length($file);
my $zero = (2048000 - $i) x chr(0);

print "$file" . "$zero";