open Resolution
open FSA

(* ============================================
              Stellar Automata
   ============================================ *)

let dot x y = Func ("·", Npol, [x; y])

let const_of_word (w : char list) =
  let rec aux = function
    | [] -> Func ("", Npol, [])
    | c::w ->
        dot (Func (String.make 1 c, Npol, [])) (aux w)
  in [Func ("i", Pos, [aux w])]