/* Test function calls in table literals */

/* Test basic function calls */
mod3 : n -> n % 3;
mod5 : n -> n % 5;

/* Test individual function calls */
result1 : mod3 15;
result2 : mod5 15;
..out "mod3 15: " + result1;
..out "mod5 15: " + result2;

/* Test function calls in table */
table1 : {mod3 15, mod5 15};
..out "Table with function calls:";
..out table1;

/* Test with map */
is_zero : x -> x = 0;
mapped : map @is_zero table1;
..out "Mapped table:";
..out mapped;

/* Test the complete divisibility function */
divisibility : n -> map @is_zero {mod3 n, mod5 n};
result : divisibility 15;
..out "Divisibility result:";
..out result;