diff --git a/lisc/tools/fptox.c b/lisc/tools/fptox.c
new file mode 100644
index 0000000..8f07565
--- /dev/null
+++ b/lisc/tools/fptox.c
@@ -0,0 +1,18 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+int
+main(int ac, char *av[])
+{
+	double d;
+	float f;
+
+	if (ac < 2) {
+	usage:
+		fputs("usage: fptox NUMBER\n", stderr);
+		return 1;
+	}
+	f = d = strtod(av[1], 0);
+	printf("0x%08x 0x%016lx\n", *(unsigned *)&f, *(unsigned long long*)&d);
+	return 0;
+}