'test load
'test import

"stack" describe

  (1 id 1 ==) assert

  (1 pop get-stack () ==) assert

  (1 dup get-stack (1 1) ==) assert

  (3 2 (1 +) dip + 6 ==) assert

  ((1) (2 swap append) sip concat (1 2 1) ==) assert

  report
  clear-stack