alias regvars { 
  if $1 == 6 { return 5 } 
  else if $1 == 21 { return 9 } 
  else if $1 == 2 { return 17 } 
  else if $1 == 14 || $1 == 19 || $1 == 30 || $1 == 37 { return 4 } 
  else if $1 == 1 || $1 == 11 || $1 == 16 || $1 == 31 { return 6 } 
  else if $1 == 25 || $1 == 29 || $1 == 35 { return 8 } 
  else if $1 == 9 || $1 == 24 || $1 == 26 || $1 == 27 || $1 == 32 || $1 == 36 { return 10 } 
  else if $1 == 0 || $1 == 10 || $1 == 15 || $1 == 20 || $1 == 23 { return 11 } 
  else if $1 == 3 || $1 == 4 || $1 == 7 || $1 == 22 || $1 == 33 { return 12 } 
  else if $1 == 5 || $1 == 12 || $1 == 13 || $1 == 17 || $1 == 18 { return 14 } 
  else if $1 == 8 || $1 == 28 || $1 == 34 || $1 == 38 { return 16 } 
}
alias setreg { 
  if $len($1) >= 5 { 
	var %i = 4, %setreg1 = 0, %setreg2 = 0, %x = 0
	while %i <= $len($1-) { 
	  inc %setreg1 $calc($asc($mid($1,%i,1)) * $regvars(%x))
	  inc %setreg2 $calc($calc($asc($mid($1,$calc(%i - 1),1)) * $asc($mid($1,$calc(%i),1))) * $regvars(%x)) 
	  inc %x 1 
	  inc %i 1 
	  if %x > 38 { 
		%x = 0 
	  } 
	} 
	return %4$s(%setreg1,-,%setreg2) 
  } 
}