pRalphs.fruitprice(1.50) <- 'apple'
 pRalphs.fruitprice(2.50) <- 'black rasberry'
 pRalphs.fruitprice(1.50) <- 'kiwi'
 pRalphs.fruitprice(0.50) <- 'navel orange'
 pBob.what2eat <- pRalphs.fruitprice(P:[1.00..5.00])
 pMary.what2eat <- pRalphs.fruitprice(P:[..2.00])