#!/usr/bin/perl
use strict; 
use warnings;
my$pq=$[;my$qp=!$_;$"='@';for$/(split//,".,., ,,..,,,, .....,, '.,,,
.,.,., .,.,, '.,..,,,, ...., ,.,,...,. ,,, ...,.,, ',.,,, .,.,..,
..,,, '.,,..,., .,'...,,, '..,,,, .,...,, .,,'...., ..,..,., ., '...,
'.,,, ',,,., .',,,,*"){print$/eq'.'?foo(!$pq):($/eq'\''?bar(!$"):($/eq
','?baz(!$qp):$"));}sub foo{$pq+=$qp+sqrt($=+4);$pq%=($=+4)/2**3;$!;
}sub bar{$qp*=-1;$!;}sub baz{my@s=split//,unpack'b8',$";$s[$pq]=1-$s[
$pq];$"=pack'b8',join'',@s;$pq+=$qp;$pq%=$=/7.5;$!;}