#! /usr/bin/perl -w $S=2,@S=(++$S*$S,$S--,$S/$S,$S*$S,$S-$S,$S*$S++,$S--**$S-$S,$S++**$S,$S**$S--+$ S,$S+$S++,$S**$S*$S-$S--**$S-$S),@S{S=>$S}=("Spam Is Not A Nice Thing",$S[$S[$S [$S [$S] ]]] ),@s=split//, $S{S};sub S{$_ =shift;return$_ *$S[$ S[$S [$S [$S[$S[$S[$S[$ S]]]]]]]]-$_;} $s=[$S[$S[$S[$S[ $S]]] ]-$S [$S [$S[$ S[$S[ $S]]] ]],$S [$S[$ S[$S[ $S[$ S[$ S]]]] ]],$S [$S[$ S[$S[ $S[$S ]]]]] *$S, $S[ $S[$S [$S[$ S[$S[ $S[$S [$S]] ]]]]] ],$S [$S [$S[$S[$S]]]],$ S[$S[$S[$S[$ S]]]]-$S[$S[$S[ $S[$S [$S[ $S[ $S[$S[$S]]]]] ]]]],$S[$S[$ S[$S[$S]]]]-$S[$ S[$S[ $S[$ S[$ S[$S] ]]]]] ,$S[$ S[$S[ $S[$S [$S[ $S[ $S[$S [$S[$ S[$S] ]]]]] ]]]]] +$S[ $S[ $S[$S [$S[$ S]]]] ],$S[ $S[$S [$S[ $S[ $S[$S [$S[$ S[$S[ $S[$S ]]]]] ]]]] ]]/ $S+$S [$S[$S]],$S[$S [$S[$ S[$S] ]]]-$S[$S[$S[$ S[$S [$S [$S[$ S[$S]]]]]]]],$ S[$S[ $S]]* ($S[$S[$S[$S[$ S]]] ]-$ S[$S [$S [$S[ $S[$S[$S]]]]]]),$S[$S[$S[$S[$S[$S[$S[$S[$S[$S[$S[$S]]]]]]]]]]]+S($S),$S-$S[$S[$ S[$S[$S[$S[$S[$S[$S[$S[$S[$S]]]]]]]]]]]/$S,$S[$S[$S[$S[$S[$S[$S[$S[$S[$S[$S[$S] ]]]] ]]]] ]]/$ S+S($S[$S [$S] ])-$ S[$S[$S[$ S[$S[$S[$S ]]]] ]],S ($S[$S [$S[$S]]])- $S[$ S],$ S[$S[$S[$ S[$S[+$S]]] ]],$ S[$S [$S[$S[$ S[$S ]]]] ],$S [$S] -$S[ $S[$ S[$S [$S[ $S[$ S[$S [$S[ $S[$ S[$S ]]]] ]]]] ]]], $S[$ S[$S[$S[$S[ $S[$S[$S[$ S[$S [$S[$S]] ]]]]]]] ]]/$S[$S[$ S[$S[$S[$S[ $S[$S[$S]] ]]]] ]]*$S[$S [$S[$S] ]],$S[$S[$S [$S[ $S[$ S[$S [$S[ $S[$ S[$S ]]]] ]]]] ]]+$ S[$S [$S] ],$S [$S[ $S[$ S[$S ]]]] -$S[ $S[$ S[$S [$S[ $S[$ S]]] ]]], $S,$ S[$S [$S[$S[$S]] ]]-$ S[$S [$S[$S[$S [$S] ]]]] ,(S$ S)-$ S[+$ S]]; for(+@s){ print chr( (ord$_)+$ s->[ $S{$ S} ++ ]) ,$ S{ $S }> @$s-$ S[$S]? chr$S[ $S [$ S[ $S [$ S[ $S [$S[$S [$ S[ $S [$ S[ $S ]] ]] ]] ]] ]] ]/ $S [$ S[ $S [$ S[ $S [$ S[$S[$ S[$S]] ]] ]] ]] :qw} }} __END__