маленький кошмар

[basp]

ниже страшненькая реализация именованных аргументов на j :)

cocurrent 'H'

fst =: [: > 0&{
snd =: [: > 1&{

pos =: 1: i.~ [: ; (([: # [) = [: +/ ([ = [: fst ]) :: 0:) each
add =: ;
get =: [: snd ([: > ]) {~ pos
unsafe_set =: 4 : '(