l:{" contain "\x^"s."}'0:"i/7"
v:*'l
d:({(.*x;2_x)}'{~"no other bag"~/:x}#", "\*|)'l
f:{$[x~"hiny gold bag";1;+/{f[*|x]**x}'d@*&x~/:v]}
-1+/(1&)'f'v
g:{1+/{g[*|x]**x}'d@*&x~/:v}
-1+g"hiny gold bag"