"bloop" search [
    get [
        "abs" search [ execute( n -- n' ) ] when*
    ] [ 0 ] if*
] [ 0 ] if*