fundamental.clj: more work on fundamental group construction