I have function produce the string of char from list of list string i need how many time the elem occurece in the list the function as follow pins1 :: (Eq a) => [[a]] -> [a] pins1 [] = [] pins1 (xs:xss) = [x | x <- xs , or [ x `elem` ys | ys <- xss] ] the input is as follow : "[[\"u\",\"g\",\"c\",\"\",\"au\",\"aug\",\"augc\",\"augca\",\"ug\",\"ugc\",\"ugca\",\"gc\",\"gca\",\"ca\"],[\"a\",\"u\",\"g\",\"c\",\"\",\"au\", \"aug\",\"augc\",\"ug\",\"ugc\",\"gc\"],[\"a\",\"c\",\"\",\"ag\",\"agg\",\"aggc\",\"gg\",\"ggc\",\"gc\"]]" the output is as follow "[\"u\",\"g\",\"c\",\"\",\"au\",\"aug\",\"augc\",\"ug\",\"ugc\",\"gc\"]" the require function to produce output as follow "[(\"u\",2),(\"g\",2),(\"c\",3), ,(\"au\",2),(\"aug\",2),(\"augc\",1),(\"ug\",2),(\"ugc\",2),(\"gc\",2)]" please contact me on ( ceemka@cee.hw.ac.uk)