link split
procedure extract(s,m,n)
    return split(split(s,'/')[m],':')[n]
end
procedure main()
    s := "/a:b/apple:orange/10:2:4/xyz/"
	write(extract(s,1,2))
	write(extract(s,1,3))
	write(extract(s,2,1))
end