Erlang big binary blob generator

fatbin.erl

-module(fatbin).

-export([generate/1]).

generate(Size) ->
    generate(Size, 1024).

generate(Size, BlockSize) ->
    NumOfBlocks =
        case Size rem BlockSize of
            0 -> Size div BlockSize;
            _ -> (Size div BlockSize) + 1
        end,
    Block = << <<0>> || _ <- lists:seq(1, BlockSize) >>,
    Blocks = [Block || _ <- lists:seq(1, NumOfBlocks)],
    iolist_to_binary(Blocks).