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