q37 :: [[Morph]] -> IO ()
q37 morphs = do
    let option =
            [";set title \"Top 10 of most freqently used Morph\""
            , "set xlabel \"Morphemes\""
            , "set ylabel \"Usage count\""
            , "set yrange [0:1e4]"
            , "unset key"
            ]
        plotCmd = "; plot \"" ++ outfile ++ "\" using 0:2:xtic(1) with boxes; #\\"
        attr = [Custom "boxwidth" ["0.5", "relative", unlines option ++ plotCmd]]
        dat = f37 $ f36 morphs
    writeFile outfile dat
    plotList attr ([] :: [Int])
    where outfile = "output/top10.dat"
q37 :: [[Morph]] -> IO ()
q37 morphs = do
    let option =
            [";set title \"Top 10 of most freqently used Morph\""
            , "set xlabel \"Morphemes\""
            , "set ylabel \"Usage count\""
            , "set yrange [0:1e4]"
            , "unset key"
            ]
        plotCmd = "; plot \"" ++ outfile ++ "\" using 0:2:xtic(1) with boxes; #\\"
        attr = [Custom "boxwidth" ["0.5", "relative", unlines option ++ plotCmd]]
        dat = f37 $ f36 morphs
    writeFile outfile dat
    plotList attr ([] :: [Int])
    where outfile = "output/top10.dat"
q37 morphs = do
    let option =
            [";set title \"Top 10 of most freqently used Morph\""
            , "set xlabel \"Morphemes\""
            , "set ylabel \"Usage count\""
            , "set yrange [0:1e4]"
            , "unset key"
            ]
        plotCmd = "; plot \"" ++ outfile ++ "\" using 0:2:xtic(1) with boxes; #\\"
        attr = [Custom "boxwidth" ["0.5", "relative", unlines option ++ plotCmd]]
        dat = f37 $ f36 morphs
    writeFile outfile dat
    plotList attr ([] :: [Int])
    where outfile = "output/top10.dat"