topic :: (Integral int, Show int, IsString string, Monoid string)
      => int -> string
topic n = "/t/" <> (fromString $ show n) <> ".json"
topic :: (Integral int, Show int, IsString string, Monoid string)
      => int -> string
topic n = "/t/" <> (fromString $ show n) <> ".json"
topic n = "/t/" <> (fromString $ show n) <> ".json"