ride :: String -> String -> Ride
ride a b = if f a == f b then Go else Stay
    where f = (`mod` 47) . product . map (\c -> ord c - ord 'A' + 1)
ride :: String -> String -> Ride
ride a b = if f a == f b then Go else Stay
    where f = (`mod` 47) . product . map (\c -> ord c - ord 'A' + 1)
ride a b = if f a == f b then Go else Stay
    where f = (`mod` 47) . product . map (\c -> ord c - ord 'A' + 1)