use List.mem to replace List.memq
updated tests