13 Line Nondeterministic Finite Automata in Haskell (github.com)