fix two codes to be more well
add a rewrite version calc.scm