[REBOL] printing a path and its value

[princepawn]

I want to print a path (ie, what the path is) and then the value of that path... how 
can I do so?

diag: func [path-block [block!]] [
        foreach p path-block [
                prin  p
                print " "
                print reduce p
        ]
]
                

diag [  system/schemes/ftp/passive
        system/schemes/ftp/proxy/host
        system/schemes/ftp/proxy/port-id
        system/schemes/ftp/proxy/type
        ]



Get your FREE Email and Voicemail at Lycos Communications at
http://comm.lycos.com