#!/usr/bin/perl use strict; use integer; $a=1;print chr($a=($a<<$a<<$a<<$a<<$a<<$a<<$a++|$a<<$a|--$a<<$a)); pri +nt chr( $a=($a>>($a**($a>>$a))+($a**($a>>$a))>>($a**($a>>$a))>>($a**($a>>$a))< +<($a**( $a>>$a))<<($a**($a>>$a))<<($a**($a>>$a))<<($a**($a>>$a))|($a**($a>>$a) +)));print chr($a=(--$a|($a==$a)<<($a==$a)<<($a==$a)<<($a==$a)<<($a==$a)));print +chr($a= ($a>>($a>>(($a==$a) + $a**($a>>$a)<<($a==$a)))<<($a==$a)<<($a**($a^$a) +))+($a **($a^$a))<<(($a==$a)<<($a==$a)|($a==$a)));
In reply to My offering... by Preceptor
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |