module Toktok.Sandhi where


data Sandhi = Sandhi String String String

mkSandhi :: String -> String -> String -> Sandhi
mkSandhi u v w = Sandhi (reverse u) v w