deliteli a = [b | b <- [1..a] , mod a b == 0]
deliteli 100
[1,2,4,5,10,20,25,50,100]