#!/usr/bin/perl

  sub o { $_
 ;return shift 
if @_>0;return 0
;};$dick=shift||o(5);$prick_8=o($dick); [$dick];
  ($dick);print(" "x($prick_8- o () +2) ."(')\n"); 
  print(" "x ($prick_8- o () +2)."/ /\n" ) while o
($prick_8--> 0);print o("(_)_)");~/8==* B-->/ig;
$prick_8=o (qq(
DJc\n));print
  $prick_8 ;