1let 2 plot f = make_shape { 3 dist p = p.[Y] - f(p.[X]); 4 is_2d = true; 5 } >> show_axes; 6 7in 8plot (x->sin x * sin(x*10)) 9