name: another movie move 1;
s[0,Cap,1]s =>
f[0,NW,1][0,Cap,1]f
#
s[0,NE,1][1,Cap,0]s =>
f[1,NW,0][0,Cap,1]f
#
