module ListHelp 
    (module Data.List
    ,initOrNull
    )where
import Data.List

initOrNull :: [a] -> [a]
initOrNull [] = []
initOrNull xs = init xs