diff --git a/examples/Makefile b/examples/Makefile
index 1554225..baae273 100644
--- a/examples/Makefile
+++ b/examples/Makefile
@@ -7,7 +7,7 @@ INCLUDE_PATH	= ../include
 CFLAGS		+= -I$(INCLUDE_PATH)
 LDFLAGS		= -L../src -lskipstone
 
-EXAMPLES	= read map test queue
+EXAMPLES	= read map test queue pack
 
 RM		= /bin/rm
 
diff --git a/examples/pack.c b/examples/pack.c
new file mode 100644
index 0000000..8be2349
--- /dev/null
+++ b/examples/pack.c
@@ -0,0 +1,33 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <errno.h>
+
+#include <skipstone/message.h>
+
+int main(int argc, char **argv) {
+    uint8_t buf[SKIPSTONE_MESSAGE_MAX_PAYLOAD];
+
+    ssize_t len;
+
+    if ((len = skipstone_message_pack(buf,
+                                      SKIPSTONE_MESSAGE_MAX_PAYLOAD,
+                                      "CCCC",
+                                      1,
+                                      2,
+                                      3,
+                                      4)) < 0) {
+        fprintf(stderr, "%s: %s: %s\n", argv[0],
+            "skipstone_message_pack()", strerror(errno));
+
+        goto error_message_pack;
+    }
+
+    write(1, buf, len);
+
+    return 0;
+
+error_message_pack:
+    return 1;
+}