<account> ( name interest-rate interest-payment-day opening-date -- account )


Vocabulary
bank

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


Outputs
accountan object


Definition
USING: kernel ;

IN: bank

: <account>
( name interest-rate interest-payment-day opening-date -- account )
V{ } clone 0 pick account boa ;