let pop () = 
  let _ = Stack.pop stack in ()