define..[help n
if...[even? n
[- (* 2 n) 2
[- (* 2 n) 3
define...[transform data
define..[transform res data
if...[= data 1
[- res 4
transform..
[help res
if...[even? data
[/ data 2
[/ (- data 1) 2
[transform 4 data
[display [transform 90
[newline
[display [transform 101