Feather

<?DEFMACRO OPERATOR ...
   PARAM from ASSUME LITERAL
   PARAM to ASSUME LITERAL
   INTEGER ARRAY ret
   DO #[
      for (integer it = $from; it != $to; (it > $from ? it-- : it++)){
         $ret[] = it; // se usa $ para informar de que es del preprocesador
      }
   ]# // el preprocesador ejecuta este codigo en tiempo de compilacion
   EVAL VALUE ret // devuelve la matriz rellenada
?>

integer myArray[] = 1...10; // equivale a: integer myArray[] = {1, 2, 3, 4, 5, 6, 7, 8, 9}