function shortNumbers(value : number) do
    let data := {
            factors: [{
                    factor: 1000,
                    title: "Tsd."
                }, {
                    factor: 1000000,
                    title: "Mio."
                }, {
                    factor: 1000000000,
                    title: "Mrd."
                }, {
                    factor: 1000000000000,
                    title: "Bill."
                }]
        };
    let absValue := abs(value);
    if absValue < 1000 then
        text(value)
    else
        let uniqueZahl := for item in data.factors do
                if absValue >= item.factor then
                    let newValue := round(absValue / number(item.factor), 2);
                    let formattedValue := text(newValue) + " " + item.title;
                    if value < 0 then "-" + formattedValue else formattedValue end
                end
            end;
        text(last(uniqueZahl))
    end
end;

shortNumbers(20000000)