(
    (mkbf r0)

    (bfpush @r0 1)
    (bfpush @r0 2)

    (bfpop r1 @r0)
    (cmp r1 2 (ne? (fault)))

    (bfpop r1 @r0)
    (cmp r1 1 (ne? (fault)))

    ; test reverse push
    (bfpush @r0 '🐈')
    (bfpush @r0 7)
    (bfrpush @r0 8)

    (bfpop r1 @r0)
    (cmp r1 7 (ne? (fault)))

    (bfpop r1 @r0)
    (cmp r1 '🐈' (ne? (fault)))

    (bfpop r1 @r0)
    (cmp r1 8 (ne? (fault)))

    ; test reverse pop

    (bfpush @r0 1000)
    (bfpush @r0 2000)

    (bfrpop r1 @r0)
    (cmp r1 1000 (ne? (fault)))

    (del @r0)
)