perl -e 's!!----->!,$~="4zv4l";s@@\r<$~~@;;{s><$~~><~$~>||s _~$~>_$~~>_,s#~$~-#-~$~#,s,-$~~,$~~-,,$|=1,select$,,$,,$,,0.15;print&&redo||$,}'
perl -e 's!!----->!,$~="4zv4l";s@@\r<$~~@;;{s><$~~><~$~>||s _~$~>_$~~>_,s#~$~-#-~$~#,s,-$~~,$~~-,,$|=1,select$,,$,,$,,0.15;print&&redo||$,}'