function a($)
  $a = Ro, Sp, Pa, Li, Sc
  $a = (AScan($a, Left($,2)) + 5 - AScan($a, Left(Split($,",")[1],2))) mod 5
  $a=($a>0) + ($a>2)
endfunction