def pr_long_double(a0)
	pf("%Lf", a0)

cstr scan_long_double(long double *a, cstr l)
	# XXX mingw doesn't like this
	scan_x(long double, "%Lf", a, l)