open q(-: j.a.p.h :-) +q-0-+$q;$/=0;seek
        $/,1<<2|1<<1,$/;read($|,$a,tell($|++)*2.5);
{$q=eval qq.q..($_||$a);$_=$q,redo if$q}
        print #:-)