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).