#!/usr/bin/perl -w
use strict;
@&=qw/
|---i`--------o-|---------|-----o-o-|-o---o---|-o---o---|-----o-o---|
|--<->--o---o---|-o-----o-|-----o---|-----o---|---o---o-|-o---o-o-.-|
|---@---o-------|-----o---|-o-------|-------o-|---o-o---|-o-----o---|
|--V------o-----|-o-------|-o-o-----|---o-----|---o-o-o-|-o-o---o-.-|
|---------------|---o-o---|---------|-o-------|-----o-o-|-o-----o---|
/;
foreach(@&){$_=~s/^.{8}(.*).{6}$/$1/gex}for($"=2**0-1;$"<sqrt(25)*sqrt(121);$"+=2){if($&[0]=~m/^o/){if($&[1]=~m/^o/){${.}.="r"}elsif($&[2]=~m/^o/){${.}.="a"}elsif($&[4]=~m/^o/){${.}.="P"}else{${.}.="$-"}}elsif($&[4]=~m/^o/){if($&[3]=~m/^o/and$&[2]=~m/^o/and$&[1]=~m/^o/){${.}.="k"}elsif($&[3]=~m/^o/and$&[1]=~m/^o/){${.}.="c"}elsif($&[2]=~m/^o/){${.}.="o"}else{${.}.="n"}}elsif($&[1]=~m/^o/){if($&[2]=~m/^o/and$&[3]=~m/^o/){${.}.="H"}elsif($&[3]=~m/^o/){${.}.="A"}elsif($&[2]=~m/^o/){${.}.="Y"}else{${.}.="t"}}elsif($&[3]=~m/^o/){if($&[2]=~m/^o/){${.}.="h"}else{${.}.="e"}}else{${.}.="l"if$&[2]=~m/^o/}foreach(@&){s/..//}}${.}=~s/0/ /g;print"${.}\n";