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

while (<>) {
    chomp;
    my ($head, $str) = split(/\t/, $_);
    next unless (defined $head && defined $str);
#     print "$head\n$str\n";
    print "$head\n";
    while (length($str) > 50) {
	print substr($str,0,50,"") . "\n";
    }
    print "$str\n";
}
