val pi = 3.14159;

fun circle_area r   = pi * r * r

and circle_circum r = 2.0 * pi * r;

(* useful(?) functions for circles *)