Evaluated proc coinval {coin currency amount} {round [expr [_dict_get [getcoindata cryptocoincharts $coin $currency] price] * $amount]}