Лень делать гольф и превносить логичность, поэтому так: ```bash perl -M"Time::HiRes 'usleep'" -lne 'BEGIN {$g=0.5;($v, $y) = (3, 10)}; usleep(10000); m/(\d+)/; $y+=$v; ($y,$v)=($y<0)?(0,0):($y,$v); $v = $v-$g+(!$1 || ($1%7)?0:3); print((" " x $y) . ("\\-_-/", "/-_-\\")[$.%2])' /dev/urandom ```