diff --git a/examples/ffi/custom-type.scm b/examples/ffi/custom-type.scm
new file mode 100644
index 00000000..77c2f4cf
--- /dev/null
+++ b/examples/ffi/custom-type.scm
@@ -0,0 +1,14 @@
+;;
+;; Basic example of using a custom type
+;;
+(import (scheme base)
+        (scheme write)
+        (cyclone foreign))
+
+(c-define-type string-as-integer string number->string string->number)
+(c-define scm-strlen int "strlen" string-as-integer)
+
+(write
+  (scm-strlen 42)
+)
+(newline)