writeで使うピクチャーフォーマットを宣言します。

formatの使い方

format Something =
Test:
@<<<<<<<< @||||| @>>>>>
$str, $%, '$' . int($num)
.
$str = "widget";
$num = $cost/$quantity;
$~ = 'Something';
write;

詳細と例についてはフォーマットを参照して下さい。