1Module: mod 2 3define constant $pi = 3.1415927d0; 4 5define macro moo 6 { moo(?:name, ?e:expression) } => { let ?name = ?e; } 7end; 8 9// abc 10define method foo-bar (n :: <integer>, #rest a, #key k, #all-keys) => (m :: <float>, b :: <boolean>) 11 let x = n + 2.0 + #b10 + #o2 + #x02; 12 format-out("dog // cat\n"); 13 local method pi () $pi end; 14 pi() 15end method foo-bar; 16 17/* 18 cow 19 */ 20foo-bar(2, k: k, a-b: c);