aboutsummaryrefslogtreecommitdiffstats
path: root/test-files/mds-kbdc/validate-tree/valid/assumption-function
blob: 8cdc5d5417b591f9e7c45bdc7c76d964abd39076 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
assumption
  function digit/1
    "\add(\1 "0")"
  end function
end assumption

# (assumption (@ 1 0-10)
#   (.inner
#     (function (@ 2 2-10) ‘digit/1’
#       (.inner
#         (map (@ 3 4-18)
#           (.sequence
#             (string (@ 3 4-18) ‘"\add(\1 "0")"’)
#           )
#           (.result nil)
#         )
#       )
#     )
#   )
# )