{ gTPS = 70

      { gTPS = 90

size = 17

size = 11

         | otherwise = word "not looking"  # color Red Vivid

         | otherwise = word "none"  # color Red Vivid

      | Just (dir,n) <- looker , r : rs <- seed h            = h { look = go r <|> parent h , seed = rs }

      | Just _       <- looker , r : rs <- seed h            = h { look = go r <|> parent h , seed = rs }