read-num
    dup2
    square
    half
    *
    -
b5
8
times #(eval)
300
power-of-10
%