Random celtic knot generator in SICStus Prolog with Tcl/Tk.