#!/usr/bin/perl

@_=('(','2','`','+','#','!','(',' ','`','2'
,'`','`',' ' ,'2','`','(','`','/','.' ,'!',
' ','`','3','`','*');@__=('$','`','%' ,'@',
'`','@','`',' ' ,',','`','%', '0',' ', '`',
'%' , '`','4','`' ,'@','@',' ','4','`','5',
'`'); _(\@_,\@__) ; sub _{print pop@{$_[0]}
|pop@{$_[1]}; _($_[0] ,$_[1]) if @{$_[0]};}