Function map

map<A, B>(
    f: (a: A) => B,
): <R, O, E>(
    self:
        | { _tag: "EmptyF" }
        | { _tag: "TextF"; show: string }
        | {
            _tag: "RowF";
            bottom: Draw.VStrut;
            cells: A[];
            hAlign: "left" | "right" | "center";
            left: Draw.HStrut;
            right: Draw.HStrut;
            top: Draw.VStrut;
            vAlign: "top" | "bottom" | "middle";
        }
        | {
            _tag: "ColumnF";
            cells: A[];
            hAlign: "left"
            | "right"
            | "center";
            left: Draw.HStrut;
            right: Draw.HStrut;
        },
) => | { _tag: "EmptyF" }
| { _tag: "TextF"; show: string }
| {
    _tag: "RowF";
    bottom: Draw.VStrut;
    cells: B[];
    hAlign: "left" | "right" | "center";
    left: Draw.HStrut;
    right: Draw.HStrut;
    top: Draw.VStrut;
    vAlign: "top" | "bottom" | "middle";
}
| {
    _tag: "ColumnF";
    cells: B[];
    hAlign: "left"
    | "right"
    | "center";
    left: Draw.HStrut;
    right: Draw.HStrut;
}

map<R, O, E, A, B>(
    self:
        | { _tag: "EmptyF" }
        | { _tag: "TextF"; show: string }
        | {
            _tag: "RowF";
            bottom: Draw.VStrut;
            cells: A[];
            hAlign: "left" | "right" | "center";
            left: Draw.HStrut;
            right: Draw.HStrut;
            top: Draw.VStrut;
            vAlign: "top" | "bottom" | "middle";
        }
        | {
            _tag: "ColumnF";
            cells: A[];
            hAlign: "left"
            | "right"
            | "center";
            left: Draw.HStrut;
            right: Draw.HStrut;
        },
    f: (a: A) => B,
):
    | { _tag: "EmptyF" }
    | { _tag: "TextF"; show: string }
    | {
        _tag: "RowF";
        bottom: Draw.VStrut;
        cells: B[];
        hAlign: "left" | "right" | "center";
        left: Draw.HStrut;
        right: Draw.HStrut;
        top: Draw.VStrut;
        vAlign: "top" | "bottom" | "middle";
    }
    | {
        _tag: "ColumnF";
        cells: B[];
        hAlign: "left"
        | "right"
        | "center";
        left: Draw.HStrut;
        right: Draw.HStrut;
    }