for (-25..25) X (-25..25) -> ($y, $x) { print (16² < $x² + $y² < 20²) ?? 'o' !! '.'; $x==25 && say ''; }