unProg (Str s) = do
	(dt, inp, ft, out) <- get
	put (dt, inp ++ s ++ "\0", ft, out)
	return out

runProg (Str s) = do
	(dt, inp, ft, out) <- get
	put (dt, inp ++ s ++ "\0", ft, out)
	return out
runProg (Str s) = do
	(dt, inp, ft, out) <- get
	put (dt, inp ++ s ++ "\0", ft, out)
	return out