//Control Letter Fiscal Code
str:="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
odd:=[1,0,5,7,9,13,15,17,19,21,1,0,5,7,9,13,15,17,19,21,2,4,18,20,11,3,6,8,12,14,16,10,22,25,24,23];
even:=[0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25];
val:="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
parcode:="PRVNDR65T28M052";//"PRVGNN38T27A786";
sum:=&+[odd[Position(str,parcode[2*i+1])]:i in [0..7]]+
&+[even[Position(str,parcode[2*i])]:i in [1..7]];
pos:=sum mod 26;
val[pos+1];