(storage>n) ( string multiplier base -- n )


Vocabulary
units.reduction

Inputs and outputs
stringan object
multiplieran object
basean object
nan object


Definition


:: (storage>n) ( string multiplier base -- n )
string last unit-suffix-hash ?at [
:> unit string but-last string>number
[ "not a number" throw ] unless* multiplier unit *
base swap ^ *
] [ "unrecognized unit" throw ] if ;