q39 :: [[Morph]] -> IO ()
q39 = plotList attr . f39 where
    attr =
        [ Custom "logscale" []
        , Title "Zipf's law"
        , XLabel "Index"
        , YLabel "Usage count"
        , Key Nothing
        ]
q39 :: [[Morph]] -> IO ()
q39 = plotList attr . f39 where
    attr =
        [ Custom "logscale" []
        , Title "Zipf's law"
        , XLabel "Index"
        , YLabel "Usage count"
        , Key Nothing
        ]
q39 = plotList attr . f39 where
    attr =
        [ Custom "logscale" []
        , Title "Zipf's law"
        , XLabel "Index"
        , YLabel "Usage count"
        , Key Nothing
        ]