output([1], '<table>\n').
output([2], '<tr><th>Points</th> <th>Student</th></tr>\n').
output([3,Points,Name,1], '<tr><td>') <-
	homework(Name, Points).
output([3,Points,Name,2], Points) <-
	homework(Name, Points).
output([3,Points,Name,3], '</td><td>') <-
	homework(Name, Points).
output([3,Points,Name,4], Name) <-
	homework(Name, Points).
output([3,Points,Name,5], '</td></tr>\n') <-
	homework(Name, Points).
output([4], '</table>\n').
homework('Ann', 5).
homework('Bob', 10).
homework('Chris', 10).