A Meta-System

    tpi(1,input,$getargv(1)).
    tpi(2,execute,'SZS_VAR' = '$getargv(0)').
    tpi(3,write,'The SZS status is' & $getenv('SZS_VAR')).
    tpi(4,exit,exit).