#!/usr/bin/perl

use strict;

my $ssay = join ' ',@ARGV;
my $x = "-"x length($ssay);

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

EOT
;