#!/usr/local/bin/perl

$H = $ENV{"H"} || 16;

while (<>)
{
    chop;
    next unless /^[-#01]+$/;

    $_= $R[++$I % $H] .= $_;

    if (length >= 128)
    {
	print "$_\n";
	$R[$I % $H]="";
    }
}

while ($_= $R[++$I % $H])
{
    print "$_\n";
    $R[$I % $H]="";
}