scoreTest :: (Integral a) => [a] -> a -> a -> a -> a
scoreTest li a b c = sum $ map f li
  where
    f 0 = a
    f 1 = b
    f 2 = -c
scoreTest :: (Integral a) => [a] -> a -> a -> a -> a
scoreTest li a b c = sum $ map f li
  where
    f 0 = a
    f 1 = b
    f 2 = -c
scoreTest li a b c = sum $ map f li
  where
    f 0 = a
    f 1 = b
    f 2 = -c