#!/usr/bin/perl -l

print

  bulldozer_("   _                       _          | two
 _ __   ___ _ __| |_ __ ___   ___  _ __ | | _____   |
| '_ \ / _ \ '__| | '_ ` _ \ / _ \| '_ \| |/ / __|  | thousand
| |_) |  __/ |  | | | | | | | (_) | | | |   <\__ \  |
| .__/ \___|_|  |_|_| |_| |_|\___/|_| |_|_|\_\___/  | two
|_|

                      ")               ;sub#marine)
        bulldozer_{ #"=.
$_                   =                 length shift;
$_
--+$_
--+$_
--+$_
--+$_
--+$_
--+$_             }#_bulldozer