fixed NAL7.

Example:

	

    IN: (^go-to,door). %1.00;0.90% [1]
    IN: 6
    OUT: <door --> (/,^go-to,_)>. :|: %1.00;0.90%
    OUT: <door --> (/,^go-to,_)>. :\: %1.00;0.90%
    IN: <door --> at>. %1.00;0.90% [8]
    OUT: <<door --> at> =\> (&/,(^go-to,door),+1)>. :|: %1.00;0.45%