should work

mattsjunk.hs

@@ -27,12 +27,12 @@ fixstruct index student ss = do
 	and the second element is the list of already grouped students
 -}
 addstudent :: a -> (t, [a]) -> (t, [a])
-addstudent s curstu = head [ (y, s: x) | let x = snd curstu , let y = fst curstu]
+addstudent s curstu = head [ (y, s:g x) | let x = snd curstu , let y = fst curstu]
 
 outputlist :: Int -> [[Int]]
 outputlist numgroup =  map (drop 1) (map (:[]) [1..(numgroup)])
 
-checkoutputlist ol = do
+
 
 {-
 	Updates the current list of already grouped