Pythagor Tree, drawn in HTML5 Canvas with Haskell and Fay