print f("19.2");

##</code><code>##

   X XXXX      XXXX
   X X  X         X
   X X  X         X
   X XXXX      XXXX
   X    X      X   
   X    X      X   
   X    X    X XXXX

##</code><code>##

  ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ----
| XXXX    X XXXX XXXX X  X XXXX XXXX XXXX XXXX XXXX        
| X  X    X    X    X X  X X    X       X X  X X  X        
| X  X    X    X    X X  X X    X       X X  X X  X        
| X  X    X XXXX XXXX XXXX XXXX XXXX    X XXXX XXXX      XXXX
| X  X    X X       X    X    X X  X    X X  X    X        
| X  X    X X       X    X    X X  X    X X  X    X        
| XXXX    X XXXX XXXX    X XXXX XXXX    X XXXX XXXX    X   

##</code><code>##

sub f{
my@c=qw[00700 00001 00000 75557 11111 71747
71717 55711 74717 74757 71111 75757 75717];
my@l,$i;map{$l[$i++%5].=join'',(unpack("B8"
,chr)=~/(.)(.)(.)$/)[0,1,1,2],' '}map{split
//,$c[ord($_)-45]}grep{/[0-9\.\-]/}split//,
pop;$_=join'',map{"$_\n"}@l[0,1,1,2,3,3,4];
tr/01/ X/;$_
}