digraph joy_defs {
    and -> unit;
    and -> duo;
    app2 -> ii;
    app2 -> cons;
    app2 -> infrst;
    app2 -> dip;
    app2 -> swap;
    app2 -> grba;
    b -> dip;
    b -> i;
    cleave -> popdd;
    cleave -> fork;
    clop -> popdd;
    clop -> cleave;
    duo -> cons;
    duo -> unit;
    fork -> app2;
    fork -> i;
    grba -> dip;
    grba -> popd;
    grba -> stack;
    ii -> i;
    ii -> dupdip;
    ii -> dip;
    infra -> dip;
    infra -> i;
    infra -> swaack;
    infra -> swons;
    infrst -> first;
    infrst -> infra;
    or -> duo;
    or -> ii;
    or -> unit;
    popd -> dip;
    popd -> pop;
    popdd -> dipd;
    popdd -> pop;
    swons -> cons;
    swons -> swap;
    xor -> duo;
    xor -> clop;
    xor -> swap;
    xor -> cons;
    xor -> ii;
}