source
r̲adians ← { (f̲loat ⍵) × (p̲i @) ÷ 180 } ⍝ private
ˡw̲alk ← { lengths turns → h ← r̲adians '+ s̲\ turns xs ← 0 c̲at '+ s̲\ (f̲loat lengths) × c̲os h ys ← 0 c̲at '+ s̲\ (f̲loat lengths) × s̲in h (2 c̲at t̲ally xs) r̲eshape xs c̲at ys }
ˡp̲oints ← { turns → 1 ˡw̲alk turns }
ˡt̲urn ← { t w → (t + 1 t̲ake w) c̲at 1 d̲rop w }
ˡp̲olygon ← { n → n r̲eshape 360 ÷ n }