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