#!/usr/bin/perl

use strict;

my $ssay = join ' ',@ARGV;
my $x; for (1..length($ssay)) { $x .= "-"; }

print <<EOT
  --$x-
 | $ssay  |
 | -$x-
 |/
 |  n,.
 \\,' o'n  ,..;''';;,.
  `;,,   ''          ';
     \\###             o  <--Stoats Bottom Hole
      |#,.      ...  ; ;
      || |  ,.;'  ;; ;'
     `,; ||'
         `,;

EOT
;