(let (
       (Value (read (current-input-port)))
       (Tax     (read (current-inpnt-port)))
       )
    (begin
        (display (floor (* Value (+ 1 (/ Tax 100)))))
        (newline)
    )
)