-- | Merges two interactions by randomly interleaving the commands. The 
-- order of the commands in each interaction is preserved.
mergeI :: [a] -> [a] -> CommandGen [a]
mergeI xs [] = return xs
mergeI :: [a] -> [a] -> CommandGen [a]
mergeI xs [] = return xs
mergeI xs [] = return xs