slice :: [a]->Int->Int->[a]
slice l a b = take(b-a) $ drop (a)l
drop' 0 l = l
drop' n (x:xs) = drop'(n-1) xs
take' 0 l = []
take' nr (x:xs) = x:(take'(nr-1)xs)