evalL (Return es) =
  do vs <- mapM eval es
     event $ RetEvt vs
     return vs
evalL (Return es) =
  do vs <- mapM eval es
     event $ RetEvt vs
     return vs
evalL (Return es) =
  do vs <- mapM eval es
     event $ RetEvt vs
     return vs