#import flo

f((("a1","a2"),("b1","b2")),"s") = plus("b1",div(minus("s","a1"),minus("a2","a1")))

#cast %eL

test = f* ((0.,10.),(-1.,0.))-* ari11/0. 10.