#!/usr/bin/perl

    $s.=rand()<.5?H:$"for+a..gr;
    $_=$s;
    $c=y/H/H/;
    s/(H+| +)/"|".length$1/ge;
    print"$s\n$_|\n$c\n"