sourcedemos/square.xtl

1⍝!/usr/bin/env xetal 2⍝# A user function with the shorthand right argument ⍵. Run it with 3⍝# ./demos/square.xtl or "xetal run demos/square.xtl"; it prints 49. 4 5⍝# u:s_quare x: x times x. 6ᵘs̲quare ← { ⍵ × ⍵ } 7ᵘs̲quare 7