4 getGroupEntryForName "grasp" >>= \ grasp ->
5 getGroupEntryForName "staff" >>= \ staff ->
6 putStr (ge2String grasp) >>
8 putStr (ge2String staff) >>
10 getGroupEntryForID (groupID grasp) >>= \ guid ->
11 getGroupEntryForID (groupID staff) >>= \ suid ->
12 putStr (ge2String guid) >>
14 putStr (ge2String suid) >>
18 name ++ (':' : (show gid) ++ (':' : members))
22 members = foldr (\x y -> x ++ (',' : y)) "" (groupMembers ge)