#!/usr/bin/perl
use strict; use integer;
$a=1;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**($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)));