@p=split('','-/ |edin<>sthmn()prf+gx');
%s = (
    '4'=>'\\','2'=>$p[0]);
    $s{0} = $p[2];$s{5} = "\\n";$s{1} = $p[3];$s{3} = $p[1];
    @r=sort(
        keys%s);$u=$r[1];
        for ($q=0;$q<4;$q++){$u.=$r[0];}
            $v=$u*(10101220.1).($u*10003244)."101010".$u*3244012440.1."124405".$u*12101220.1.($u+1)."0$u.10101010101230100010010510101220".($u*1220122044230)."440300442301044012201230";
            foreach $d (split('',$v)) { $C.=$s{$d}; }
                $p = "#$p[6]$p[7]clu$p[5]e <s$p[11]$p[5]$p[6]o.h>\n$p[6]$p[7]$p[11] ma$p[6]$p[7] (){ pr$p[6]$p[7]$p[11]f (\"$C\"); }\n";
            $g = "g+$p[20] $p[22].c -o $p[22]; ./$p[22]";
        open (X,">$p[22].c");
    print X $p;system($g);
close X;