#!/usr/bin/perl

eval(((         'eval'.   #00101000001001110011   001100110001001100110
'("op'.         'en(\$'   #01100110011011100100   111010111100010011101
.'F,\"'.        '<\$"'.   #00001101000011010110   100101110101000011001
'.(2-2)'.       '."\"'.   #00111001010010010111   000100010001001110010
');");$n'.      '=233'.   #001000                 1011100
'7-2338;f'.     'or(;'.   #010100                 0001000
';){if($n='.    '=2-3'.   #100011                 0011001
'){$v=2-2;$'.   'n=7;'.   #100010                 0110011
'}$c=getc($F'.  ');un'.   #001100                 1100110
'less'. '(def'. 'ined'.   #11100100010010111100   010011101011011010101
'$c){'.  'last;};if(o'.   #00010111110101111101   011000001001110010100
'rd($'.   'c)eq(48)){'.   #10010111000100010001   011000010000000100010
'$_.='.    'chr($v)if'.   #00101110001010000010   011100110011001100010
'($n='.     '=2-2);$n'.   #011001                 1001100
'--;}'.      'elsif(o'.   #110011                 0111001
'rd($'.       'c)==49'.   #001110                 1011110
'){if'.        '($n=='.   #001000                 1001000
'2-2)'.         '{$_.'.   #100010                 1111001
'=chr'.         '($v+'.   #000001                 0101111
'(2**'.         '$n))'.   #101010                 0110010
';}el'.         'se{$'.   #001000                 1010010
'v+=('.         '2**$'.   #010111                 0001000
'n);}'.         '$n--'.   #100010                 0111001
';}}'))         );eval    #000100                 0100011
(eval);         (eval);   ####by:                 rkruger