.NumDigit2 (
	Dig:d1 Dig:d2 Dig:d3 Dig:d4 
) {<num strcat($d1 strcat($d2 strcat($d3 $d4)))>}

Dig [ 0 {return("0")}
	  1 {return("1")}
	  2 {return("2")}
	  3 {return("3")}
	  4 {return("4")}
	  5 {return("5")}
	  6 {return("6")}
	  7 {return("7")}
	  8 {return("8")}
	  9 {return("9")}
	  oh {return("0")}
	  ]