import Data.MarkovAlgo

testAlgo = buildAlgo "abcd" "xyz" $ [
    "αx" :-> "x+xα",
    "α"  :-> "γ+",
    "βxy" :-> "yβx",
    "βx+" :-> "γ+x",
    "xγ"  :-> "γx",
    "+γ"  :-> "β",
    "γ"   :->. "",
    ""    :-> "α" ]

main = print $ runMarkov testAlgo "bdca"