||:@include: lib/rpn.nv

|:groceries: $item|
    :: put $item in the fridge

|:: put $item in the fridge :fridge: $item $quantity?|
    :: put $item in its bin
    :: close all the bins
|:: put $item in the fridge? :fridge: $other $quantity|
    :checked bins: $other $quantity
|:: put $item in the fridge|
    :: make a bin for $item
    :: close all the bins

|:: make a bin for $item|
    :fridge: $item 1

|:: put $item in its bin :@rpn data: $quantity|
    :fridge: $item $quantity
|:: put $item in its bin? :fridge: $item $quantity|
    :@rpn: ($quantity 1 +)

|:: close all the bins? :checked bins: $item $quantity|
    :fridge: $item $quantity
|:: close all the bins|

||:groceries: (apples apples oranges grapes apples mangos oranges)