-- Siteswap validator 2
-- Obfuscated version with string parsing
-- Examples: s"441"; s"aa1"; s"132"  

import List;import Char;s x=(length x)==(length$nub$zipWith(\y z->(y+z)`mod`(length x))(map((`mod`39).ord)x)[1..])