#!/usr/local/bin/perl -w

use strict;

sub padCReturn() {
    while (<STDIN>) {
        chomp;
        print $_ . "\r\n";
    }
}

&padCReturn();

exit;