Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeList/Drop.hs
module Prelude where drop :: Int -> [a] -> [a] drop n xs | n<=0 = xs drop _ [] = [] drop n (x:xs) = drop (n-1) xs
