#Define Tab $C( 9 )
#Define CrLf $C( 13 , 10 )
#Define Quot(%s) $C( 34 )_%s_$C( 34 )

#Define SerializeS(%s) "s:"_$l(%s)_":"_$$$Quot(%s)_";"
#Define SerializeI(%s) "i:"_%s_";"
.
Serialize(l) n c,i,t
 s c="a:"_$ll(l)_":{"
 f i= 1 : 1 :$ll(l) d
 . s c=c_$$$SerializeI((i- 1 )),t=$lg(l,i)
 . i t? 1 "a"1":"1.9N1":"1"{".E  s c=c_t
 . e  s c=c_$$$SerializeS($lg(l,i))
 q c_"}"
.
SerializeN(l,n) n c,i,t
 s c="a:"_$ll(l)_":{"
 f i= 1 : 1 :$ll(l) d
 . s c=c_$$$SerializeS($lg(n,i)),t=$lg(l,i)
 . i t? 1 "a"1":"1.9N1":"1"{".E  s c=c_t
 . e  s c=c_$$$SerializeS($lg(l,i))
 q c_"}"

KontrAGget(c) n l,n,i
 s n=$lb("NAME","ADDRESS","INN")
 s l=$lb(^KontrAG(c,"NAME"),^KontrAG(c,"ADDRESS"),^KontrAG(c,"INN"))
 w $$SerializeN(l,n)
 q

$inp_KontrAG='12'; // Т.е. ключ первого уровня
$Agent=unserialize($msm->execute('d KontrAGget^ManyMaker('.$inp_KontrAG.')'));