{|a|b|c|}を受け取ったら[[{1};a];[{2};b];[{3};c]] にしてくれる関数

nest.satyh

let-mutable it-num <- 0

let add-num-list it-list =
  let () = it-num <- 0 in
  let add-num it =
    let () = it-num <- !it-num + 1 in
      (it, !it-num)
  in
    List.map add-num it-list

let convert (it, num) =
  let it-num = arabic num |> embed-string in
    [it-num; it]

let main it-list =
  add-num-list it-list |> List.map convert

test.pdf

test.saty

@require: stdja
@import: nest


let-inline ctx \test list =
  let main-list = main list in
  let show-it-list list =
    match list with
    | it-num :: it :: [] -> {[#it-num;\; #it;]\;}
    | _ -> {}
  in
    List.map show-it-list main-list |> List.map (read-inline ctx) |> List.fold-left (++) inline-nil

in

document (|
  title = {test};
  author = {putiputi2100};
  show-title = false;
  show-toc = false;
|) '<
  +p{\test{|a|b|c|d|}}
>