{-# htermination scanl :: (a -> b -> a) -> a -> [b] -> [a] #-}