SHL (shift-left) function
SHL: func [
"Shift-Left"
s [series!]
n [integer!]
/with fill
][
append
copy skip s n
array/initial
min n (length? s) ; we should really ASSERT n <= length? s
either with [fill][none]
]