ed - mb
$a
From
.
0;/From/;//-1w x
0;//;//-1d
w
q
if $1x = x goto norm
sno /usr/ken/sky/ch.sno <x >y
ed - y
g/ castle king side/s//o-o/
g/ castle queen side/s//o-o-o/
g/ becomes queen/s//(q)/
g/ en passent/s//ep/
1g/^/1,$s/ pawn/p/g
g/ king/s//k/g
g/ queen/s//q/g
g/ rook/s//r/g
g/ bishop/s//b/g
g/ knight/s//n/g
g/ at/s//\//g
g/ to/s//-/
g/ takes/s//x/
g/ check/s//+/
g/ one/s//1/g
g/ two/s//2/g
g/ three/s//3/g
g/ four/s//4/g
g/ five/s//5/g
g/ six/s//6/g
g/ seven/s//7/g
g/ eight/s//8/g
w x
q
goto make
: norm
ed - x
v/^[ 1234567890]/d
g/T. Belle/d
1,$s/....//
1,$s/  */	/
w
q
: make
newc
input x
score x
