type stock_item = {
  id : stock_id;
  mutable location : position;
}