the corner office

I'm just storing this as a bit of personal history so I can look back one day and see if this still makes sense, in less than 20 seconds, and without resorting to pencil and paper.

s(Stacks, [Stack1, [Top1 | Stack2] | OtherStacks]) :-
  del( [Top1 | Stack1], Stacks, Stacks1),
  del( [Stack2, Stacks1, OtherStacks]).

Because it sure didn't make sense, in less than 20 seconds, without pencil and paper, this evening :-(