IDENTIFIER	r
ASSIGN		=
FLOAT		8
NEWLINE
IDENTIFIER	pi
ASSIGN		=
FLOAT		3.1415
NEWLINE
IDENTIFIER	circle_area
ASSIGN		=
IDENTIFIER	pi
TIMES		*
IDENTIFIER	r
TIMES		*
IDENTIFIER	r
NEWLINE
IDENTIFIER	circle_circum
ASSIGN		=
IDENTIFIER	pi
TIMES		*
INTEGER		2
TIMES		*
IDENTIFIER	r
NEWLINE
IDENTIFIER	sphere_vol
ASSIGN		=
LPAREN		(
FLOAT		4
DIVIDEDBY	/
FLOAT		3
RPAREN		)
TIMES		*
IDENTIFIER	pi
TIMES		*
IDENTIFIER	r
TIMES		*
IDENTIFIER	r
TIMES		*
IDENTIFIER	r
NEWLINE
IDENTIFIER	sphere_surf_area
ASSIGN		=
INTEGER		4
TIMES		*
IDENTIFIER	pi
TIMES		*
IDENTIFIER	r
TIMES		*
IDENTIFIER	r
NEWLINE