(bind-func test
(lambda ()
(let ((p1 (K_Point2D 11 12))
(circle (K_Circle p1 5:i64))
(rect (K_Rect (K_Point2D 0 0) 5 5)))
(K_Point2D$ p1 (x y)
(begin (printout 'x: x " " 'y: y "\n")
x)
0)
(println (K_Circle$ circle (p r)
(K_Point2D$ p (x y)
(tuple x y)
(tuple 0 0))
(tuple 0 0)))
void)))