Function L-Solve!

Part of:

package lisplab
( l-solve! < l > < x > )