perl -e '
                   #
                  ###
                 $OoO=
                "\e[H";
               00;$oOo =
              "\e[1J";sub
             o {print @_;}
            o $oOo ; sub x{
           ($o , $O ) = @_ ;
          sprintf("% 13s%s\n"
         , $o, $O )}   sub O {
        o $OoO ; $c = "*" ; map
       {$o = $c x$_;$O=$c x($_-1
      );$d="@";sub k {$Q = shift;
     map{ substr($Q,rand(length($Q
    ) ), 1) = $d }( 1..length($Q) -
   1);return$Q;} $o=k($o); $_>1?$O=k
  ($O):"";$d="/"; $o=k($o); $_>1?$O=k 
 ( $O ) : ""  ; $a [ $_ ] =x($o, $O );
}(1 ..12);o@a;o x"||";o x"||";sleep 1;o
                 ;;O()
                 ;}O;;
'