EW3Z5HY7MUE25EJ3EOJDR4F4GP4DQQSSMIYWP5LQEPSMMGUKKKJAC , gInitState = (State { center = 0 },set (Hex { look = pick r total , seed = rs , parent = Nothing , i = 1 }) 0 (verse size))
, gInitState = (State { center = r , rand = r },set (Hex { look = pick r total , seed = rs , parent = Nothing , i = 1 }) 0 (verse size))
| KeyPress 'r' <- e , r : rs <- seed (nodes v ! 0) = Right (s,set (Hex { look = pick r total , seed = rs , parent = Nothing , i = 1 }) 0 (verse size))
| KeyPress 'r' <- e , r : rs <- seed (nodes v ! 0) = Right (s { rand = r },set (Hex { look = pick r total , seed = rs , parent = Nothing , i = 1 }) 0 (verse size))