990c751c-c94c-447e-86cc-7e86dfbf6180 3 4 5 false false 0 0 decimal

obj str val set obj IsDefined num2str 1 ≡ obj obj str num2str val 12 mat stack : obj str num2str val 12 mat : if 121 line :

obj str get f obj str 1 findrows : (0 ≠ f 2 el val str num2str (obj num2str) concat str2num : obj IsDefined num2str 1 ≡ obj obj str val 12 mat stack : obj str val 12 mat : if val 31 line if 11 line :

CAR color blue set 1

CAR speed 35 km hr / * set 1

CAR mass 4500 kg * set 1

CAR speed get 9.7222 m s / *

CAR color get blue

CAR mass get 4500 kg *

obj KE 12 / obj mass get * obj speed get 2^* :

CAR KE get MJ 0.2127

TRUCK mass 12000 kg * set 1

TRUCK speed 80 km hr / * set 1

TRUCK KE get MJ 2.963

Alvaro