#!/usr/bin/perl -w
use strict;

my @numbers = ();
my $output  = '';

while (<STDIN>) {
    chomp;

    @numbers = split ( ' ', $_ );
    next if ( scalar(@numbers) < 3 );

    foreach (@numbers) {
        $_ = 32 if ( $_ < 32 );
        $output .= chr($_);
    }

    if ( scalar(@numbers) < 18 ) {
        if ( length($output) > 60 ) {
            $output = substr( $output, 60, 80 );
            print "$output\n";
            $output = '';
        }
    }
}

print "\n";