import Data.List (inits)

main = print . drop 1 . inits $ [0, 1, 2, 3]

[[0],[0,1],[0,1,2],[0,1,2,3]]