fundamental.clj: started work on fundamental group construction