diff --git a/src/operators.pod b/src/operators.pod
index 6696da9..c8d5d38 100644
--- a/src/operators.pod
+++ b/src/operators.pod
@@ -192,7 +192,8 @@ Now all the necessary informations are in place and the chart can be printed:
 =begin programlisting
 
     for @scores {
-        printf "%- {$label-area-width}s%s\n", .key, 'X' x ($unit * .value);
+        my $format = '%- ' ~ $label-area-width ~ "s%s\n";
+        printf $format, .key, 'X' x ($unit * .value);
     }
 
 =end programlisting