TLang

<?php
    while(($l=trim(fgets(STDIN))))
        echo Tlang($l)."\n";

    function Tlang($c)
    {
        return ($d=preg_replace_callback('/\^([=#@]) +?(\-?\d+)(?: +?(\-?\d+))?\$/', create_function('$m','return eval(\'return \'.(isset($m[3])?$m[3]:\'\').strtr($m[1],\'=#@\',\'+*-\').$m[2].\';\');'), $c))==$c?$c:Tlang($d);
    }
?>