[pft] ('', if s(mpu,v5021[1],mpl)='I' then v2000^i else if s(mpu,v5021[1],mpl)='P' then v2000^p else v2000^e fi, fi, '') [/pft]