generateInteractionId :: CommandGen Int
generateInteractionId = modifyCGS (\g -> (interactionG g,g { interactionG = interactionG g+1}))
generateInteractionId :: CommandGen Int
generateInteractionId = modifyCGS (\g -> (interactionG g,g { interactionG = interactionG g+1}))
generateInteractionId = modifyCGS (\g -> (interactionG g,g { interactionG = interactionG g+1}))