+: list->pad ( list -- n )
+
+ 2dup car drop -rot \ keep length of list on stack
+ 2dup cdr 2swap car drop \ get length from list
+
+ pad + 1- \ final dest addr
+ pad \ initial dest addr
+ swap
+ do
+ 2dup cdr 2swap car
+ drop i !
+ -1 +loop
+
+ 2drop
+;
+