USING: assocs kernel sequences splitting ;

: at-path ( path assoc -- value/f ) swap "." split [ swap at ] each ;