hunk ./Makefile 18
+# ps:	ps/query.ps.bz2 ps/relational.ps.bz2 ps/update.ps.bz2
+ps:	ps/QueryMonad.ps.bz2 ps/RelationalAlgebra.ps.bz2 ps/UpdateMonad.ps.bz2
+
+ps/%.ps.bz2:	src/Example/%.hs
+	a2ps -o - $< | bzip2 >$@
+
hunk ./src/Example/QueryMonad.hs 43
+{-
+Exercise:
+Rewrite the above query without (&&).
+-}
+
hunk ./src/Example/QueryMonad.hs 115
+{-
+Exercise:
+Rewrite the above without nub (DISTINCT)
+and use a sub-query instead.
+-}
+
hunk ./src/Example/QueryMonad.hs 148
+{-
+Exercise
+Find the five employees with highest salaries.
+-}
+
hunk ./src/Example/RelationalAlgebra.hs 20
+{-
+Exercise:
+Show all departments
+-}
+
hunk ./src/Example/RelationalAlgebra.hs 32
+{-
+Exercise:
+Show all clerks and analysts (intermixed)
+-}
+
hunk ./src/Example/RelationalAlgebra.hs 44
+{-
+Exercise:
+Rewrite the above query without (&&).
+-}
+
hunk ./src/Example/RelationalAlgebra.hs 58
+{-
+Exercise:
+Write a natural join over Emp and Dept.
+Result type shall be [(Emp,Dept)].
+-}
+