#!/usr/bin/perl -w


                        use strict;;          ;; ;;;;;; ;;
                        open A,$0;;;          ;;;;;;;;;;;;
                        ;;;;;;;;push          @_,$_  while
                        <A>;;;;;;;;;          ;;;;;;;;;;;;
                        print   chr(          y/;/;/ -3<0?
                        ord' ':y/;//          +  ord '^' )
                        foreach "@_"          =~/;[;\s]+/g
                        ;;;;;;;;;;;;          ;; ;;;;;; ;;
                        push @_,$_;;          push@_,$_;;;
                        push @_,$_;;          ;;;;;;;;;;;;
         
         

           
         
                        ;;push @_,$_          ;;;;;;;;;;;;
                        ;;;;;push @_          ,$_;;;;;;;;;
                        ;;;;;;;;;;;;          ;push@_,$_;;
                        ;;;;;;;;push          @_,$_;;;;;;;
                        push @_,$_;;          ;;;;;;;;;;;;
                        ;;;;;;push@_          ,$_;;push@_,
                        $_;;;;;;;;;;          ;;;;;;;;push
                        @_,$_;;;;;;;          push@_,$_;;;
                        ;;;;;;;;;;;;          ;;;;;push @_
                        ,$_;;;;;;;;;          ;;;;;push@_,
                            $_;;push              @_,$_;;;
                            ;;; ;;;;              push  @_
                           , $_ ;;;              push @_,
                           $_ ;;;;;              push @_,
                          $_;;;;;;              ;;; ;;;;
                          push @_,              $_;;;;;;
                         ;push@_,              $_;push
                        @_,"\n";              ;;;;;;;
                        ;;;;;;;               ;;; ;;
                        print                 pop@_