Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeList/Init.hs
module Prelude where init :: [a] -> [a] init [x] = [] init (x:xs) = x : init xs init [] = error "PreludeList.init: empty list"
