module MapRange {
	Map=lambda (a,a2,b,b2) -> {
		if a2-a=0 then error "wrong parameters"
		f=(b2-b)/(a2-a)
		=lambda a,b,f (x)->b+(x-a)*f
	}
	m1=Map(0,10, -1, 0)
	for i=0 to 10
		Print i," maps to ";m1(i)
	next
}
MapRange