diff --git a/etc/tak.scm b/etc/tak.scm
index 69f4b5b0..4255f6e9 100644
--- a/etc/tak.scm
+++ b/etc/tak.scm
@@ -18,7 +18,7 @@
 (define (f)
   (tak 12 6 0))
 
-(write (time f))
+(write-simple (time f))
 (newline)
 
 ; 70fb34 -> 10.374959