F6CAOERUHO3PYEPIT6VBNZPRALQPCAAZDTQFGFFVRLIVSECETU4AC NQEZG66FQWQQOOYXN2GK7MHIQH25QBBNKE37GGDJBCHCSKWJZABQC 6QAAR2VPKVD3II6SKKLQBHRYOFX4NHA6HGJMBMFRPQCVE5OLKWJQC 7QP2V7ZBVZ7SKQ3SYV6NYA7V77G3Y7GF5V6EPIXLIYFSMFRWR4VAC O7B34AE2RCSSUKPDKL6VRLOAGH3OYXD6VAI6C6KHZMA7RWUMN2MQC DPKNMYAABC2UGZ2VAU2GKRDWZSRHFG24VOJ3X57MMPFY76YXJWHAC CWLOBLWQJDZL5EMPWBHK3XRT2TZZ5U5M4WGMHC65MU5YHAAUJPHAC RTM5VGIPTRMJMKLJER4543HXDRMGUZ7TI5VJBOV4ZFGUCILNQ62QC data Node a = Node { ix :: Int , atom :: a }data Verse a = Verse { radius :: Int , nodes :: V.Vector (Node a) , neighbours :: V.Vector (U.Vector Int) }
data Node a = Node{ ix :: Int, atom :: a}data Verse a = Verse{ radius :: Int, nodes :: V.Vector (Node a), neighbours :: U.Vector Int -- flattened vector[n][dir] -> vector[n*6+dir]}