open-account ( name interest-rate interest-payment-day opening-date opening-balance -- account )


Vocabulary
bank

Inputs
namean object
interest-ratean object
interest-payment-dayan object
opening-datean object
opening-balancean object


Outputs
accountan object


Definition
USING: kernel ;

IN: bank

: open-account
( name interest-rate interest-payment-day opening-date opening-balance -- account )
[ [ <account> ] keep ] dip "Account Opened" <transaction>
>>transaction ;