#!/bin/rc
if(! test -r /env/%dot){
	echo 'this is designed to be run from within sam: ^samfrog' >[1=2]
	exit 'not in sam'
}
if(~ $%dot ''){
	echo !echo open a new window first
	exit 'no window'
}
audio/pcmconv -iS32c1r600 </dev/bintime >/dev/audio &
fn w{
	echo '!sleep 0.11
		4/ ~/c/~
		5/~/i/ 
		6/ /d
		!sleep 0.11
		4/~/i/ 
		5/ ~/c/~
		6a/ '
}
for(r in 1 2){
	echo ',c


    __oo_
 __/   -/_   ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
_\.­(--(-/_ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
             ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
.
	0i/                                     *\n/'
	for(i in `{seq 13}){
		w
		echo '#0,#1d
			1m2'
		w
		echo '#2,#3d
			2m0'
	}
	w
	echo '2,4c
          *
          /''
    _8/|∠''
.
		1c/\n/'
	w
	echo '3,4c

    __oo_
.
		2c/\n/'
	w;w;w;w
}
echo '$a/umbraticus
	!echo kill>/proc/$apid/note'