(* test parsing string to RE *)
#use "nfa.ml"

let r = Nfa.string_to_regexp "ab";;
print_endline (Nfa.regexp_to_string r) ;;

let r = Nfa.string_to_regexp "c|d";;
print_endline (Nfa.regexp_to_string r) ;;

let r = Nfa.string_to_regexp "e*";;
print_endline (Nfa.regexp_to_string r) ;;