<pre>on moveTo where  -- move a cd to another stack.  toComputer  doMenu "Cut Card"  push cd  go to last cd of stack where  doMenu "Paste Card"  pop cdend moveTo</pre>