G40 G7 G21 G18
G90.1
;G95 F0.15
G94 F1000
G96 S40 D1000
#10 = 20 ;[#5420*2]
#12 = 50 ;#5422
(debug, #13, #10)
M6 T1 G43
g0 X[#10+5] Z[#12+5]
#20 = 0.7 (cut)
#21 = 0.5 (tool radius)

#31 = 0 (stalk)
#32 = 16 (sphere diameter)

#1 = #10
O100 while [#1 GT #32 + #20]
#1 = [#1 - #20]
G0 X[#1]
G1 Z-40
G0 X[#1 + 0.5]
G0 Z #12
G0 X#1
M1
O100 endwhile
#1 = #32
G0 X#1
G1 Z-40
G0 X[#1 + 0.5]
G0 Z #12
O101 while [#1 GT #31 + #20]
#1 = [#1 - #20]
G0 X[#1]
G1 Z[-30 + [SQRT[[[#32 + #20] * [#32 + #20]]/4 - [#1/2 * #1/2]]]]
G0 X[#1 + 0.5]
G0 Z #12
O101 endwhile
/G42
G0 X[#10 + 3] Z[#12 + 3]
G0 X#31
G1 Z[-30 + [SQRT[[#32 * #32]/4 - [#31/2 * #31/2]]]]
G3 Z-30 X[#32] I0 K-30
G1 Z-35
G40
G0 X#10
G0 Z#12
M2