p=/dev/lp0
f=/dev/fd0
alias b="binedit bootsector"

slam () {
cp bootsector /dev/fd0
dd < /dev/fd0 > bla bs=512 count=1
diff bla bootsector
rm bla
}

testm4 () {
cp asmacs  Ha3sm.test
ed Ha3sm.test <<BLA
1
a
include(asmacs)
.
,s/define(//
,s/,.*//
,s/#.*//
wq
BLA

m4 Ha3sm.test | sed 's/#.*//' | snug | sort | l
rm Ha3sm.test
}


tween () {
cp $1 tweens/$1$RANDOM
}

best () {
cp s best_recent
}
