$w[$n++]=[(/./g)x99]while<DATA>;print$^O=~/Win/?`cls\n`
:`clear\n`,map{$l=$w[$_];$r=sqrt$_*(20-$_);shift@$l;my
@o;@o[$x=$r-$r*cos$_*.1,2*$r-$x]=@{$l}[$_,32-$_]for
1..16;$"x(15-$r),@o,$/}0..20 until select$f,$f,$f,.2
__DATA__
    ###### ####   ### ####  ##              ##
  ###  ###### ##   ######          ###################
 ##   #########    ####           #  ###  ##############
      ###########               # ## ####################
     #########                  #####  ################### #
      ##### #                  ####  ####################
       ## #                     ##########################
        #   #                ###############   ####  ####  #
         #   #              ##############     ###   ### # #
          ###                ############       #     ## #
         #####                  ########            # ##
         #######                #######             ##### ##
          #######               ###### #          ###########
          ######                 #### #           ##########
          #####                   ###                   ###   #
          ####                    ####                      ##
          ##
          #

################################################################