$_="program sign;
begin
    writeln('really just an unreconstructed pascal hacker');
end.";
s/^(..)[^i]*(.).(.)[^(]*([^;]*;).*/$1$2$3t$4/s;
eval;