#!/usr/bin/perl
# See also cifs.py and wing.lua.  Edited GPT-4 output;
# see <https://bin.gy/clignitter>.  Try watch -n .1 ./wing.pl.
for(1..9999){$t=0|rand 3;($y,$x)=$t?($y/2,$x/2+($t-1?40:10)):(.3*$x-.4*$y+12,
.4*$x+(.2+abs($$%99/99-.5))*$y);$a[$x][$y]=1}map{$r=$_*2;print map({substr
" .':",2*$_->[$r]+$_->[$r+1],1}@a[0..79]),"\n"}(0..18);