Categorising inputs

gistfile1.fs

let rec mem x l =
    match l with
    [] -> false
    |   (y::ys) -> if x = y then true else mem x ys ;;

let stopcase x =  mem x stopcases ;;
let digit x = mem  x digits ;;
let alpha x = not(mem  x  (digits @ stopcases)) ;;