(while:prn(-:-(= a(/(read)2)b(sqrt:-(* a a)(read)))a)" "(+ a b))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page