USING: kernel math.ranges sequences splitting ; : bread-crumbs ( path -- seq ) ! example path: "/boot/home/apps/CDPlayer" "/" split dup length [1,b] [ head ] with map [ "/" join ] map harvest "/" prefix ;