Pffft... I tried to introduce my grail finder, but the part between while $d>0 and loop is so weird and dependant on your grail finder that I had to give up
_________________________