diff --git a/include/picrin.h b/include/picrin.h
index 0e7a8af5..f477a170 100644
--- a/include/picrin.h
+++ b/include/picrin.h
@@ -209,6 +209,7 @@ const char *pic_errmsg(pic_state *);
 
 pic_value pic_debug(pic_state *, pic_value);
 pic_value pic_fdebug(pic_state *, pic_value, xFILE *);
+void pic_printf(pic_state *, const char *, ...);
 
 #if defined(__cplusplus)
 }
diff --git a/src/write.c b/src/write.c
index 0a7bcafe..eabd75bf 100644
--- a/src/write.c
+++ b/src/write.c
@@ -371,6 +371,22 @@ pic_fdebug(pic_state *pic, pic_value obj, xFILE *file)
   return obj;
 }
 
+void
+pic_printf(pic_state *pic, const char *fmt, ...)
+{
+  va_list ap;
+  pic_str *str;
+
+  va_start(ap, fmt);
+
+  str = pic_str_ptr(pic_car(pic, pic_vformat(pic, fmt, ap)));
+
+  va_end(ap);
+
+  printf("%s", pic_str_cstr(str));
+  fflush(stdout);
+}
+
 static pic_value
 pic_write_write(pic_state *pic)
 {