lis [] n= 0
lis(xs:xss) n = contiene xs n+lis xss n
contiene [] n = 0
contiene(x:xs) n
| n == x = n + contiene xs n
main = do
let l = [[2,6,1,2,7],[3,8,9,2,1],[2,4,6]]
bGlzOjogW1tJbnRdXSAtPiBJbnQgLT4gSW50CmxpcyBbXSBuPSAwCmxpcyh4czp4c3MpIG4gPSBjb250aWVuZSB4cyBuK2xpcyB4c3MgbgoKY29udGllbmU6OiBbSW50XSAtPiBJbnQgLT4gSW50CmNvbnRpZW5lIFtdIG4gPSAwCmNvbnRpZW5lKHg6eHMpIG4KICAgfCBuID09IHggPSAgbiArIGNvbnRpZW5lIHhzIG4KICAgfCBvdGhlcndpc2UgPSBjb250aWVuZSB4cyBuCm1haW4gPSBkbwpsZXQgbCA9IFtbMiw2LDEsMiw3XSxbMyw4LDksMiwxXSxbMiw0LDZdXSAKcHJpbnQobGlzIGwgMikKCg==