showNice (x:xs) = do
        putStrLn $ fst x ++ " occurs "++ show ( snd x) ++ " times"
        showNice xs 
showNice (x:xs) = do
        putStrLn $ fst x ++ " occurs "++ show ( snd x) ++ " times"
        showNice xs 
showNice (x:xs) = do
        putStrLn $ fst x ++ " occurs "++ show ( snd x) ++ " times"
        showNice xs 