nitState :: String -> (DataTape, String, FunTable, String)
initState inp = (initDataTape, inp, initFunTable, "")

initState :: String -> (DataTape, String, FunTable, String)
initState inp = (initDataTape, inp, initFunTable, "")
initState inp = (initDataTape, inp, initFunTable, "")