unProg :: Prog -> InterpreterState
runProg (Join p1 p2) = runProg p1 >> runProg p2

runProg :: Prog -> InterpreterState
runProg (Join p1 p2) = runProg p1 >> runProg p2
runProg (Join p1 p2) = runProg p1 >> runProg p2