#!/usr/bin/perl

use strict;

$.=$ ^F,$;=$./$ .,$_=$.<<$ .*$.+$;,$ ==$.<<$.,$ *=$=+$.=>$ %=$.*$_;$ "=$%-$*
,$-=$ =-$.=>$?=$ %-$.,$:=$;+$ .;$!=$_/$.,$ @=$"-$=-$ --$:,$/=$?+$;-$*-$:,$#=
pack'c*',$_+$ *,$?+$ ;-$*,$?+$ ;-$*-$.,$ "-$.,$!,$_+$ !+$./$.,$"-$=,$"-$=+$.
/$ .,$ "-$.,$" -$=-$-,$ @,$/,$ !,$_+$ *+$ *-$.*$ .,$@,$/,$ "-$=-$.,$ !,$"-$=
-$- ,$_+$!+$ ;,$_+$!+$;+$ . ,$?+$ . /$.-$*-$ * ,$@,$/,$ !+$ *+$ . ;print $;;