[Haskell-cafe] Transforming graphs with loops with Hoopl