let dup () = 
  let (s, al) = Stack.top stack in
    Stack.push (s, []) stack