q38 :: [[Morph]] -> IO ()
q38 = plotListStyle attr (defaultStyle { plotType = Boxes }) . f38 where
    attr =
        [ Custom "boxwidth" ["10"]
        , Title "Histogram"
        , XLabel "Usage count"
        , YLabel "Number of kind of words"
        , XRange (0.0, 10**4)
        , YRange (0.0, 50.0)
        , Key Nothing
        ]
q38 :: [[Morph]] -> IO ()
q38 = plotListStyle attr (defaultStyle { plotType = Boxes }) . f38 where
    attr =
        [ Custom "boxwidth" ["10"]
        , Title "Histogram"
        , XLabel "Usage count"
        , YLabel "Number of kind of words"
        , XRange (0.0, 10**4)
        , YRange (0.0, 50.0)
        , Key Nothing
        ]
q38 = plotListStyle attr (defaultStyle { plotType = Boxes }) . f38 where
    attr =
        [ Custom "boxwidth" ["10"]
        , Title "Histogram"
        , XLabel "Usage count"
        , YLabel "Number of kind of words"
        , XRange (0.0, 10**4)
        , YRange (0.0, 50.0)
        , Key Nothing
        ]