-module(reverse_bits).
-import(lists, [map/2, seq/2, sum/1, zip/2]).
-export([reverse_bits/1]).

reverse_bits(Col) -> [sum(map(fun({A, B}) -> A bsl B end, zip(X, seq(0, length(X) - 1)))) || X <- [[(Y bsr (Col - X)) rem 2 || X <- seq(1, Col)] || Y <- seq(0, (1 bsl Col) - 1)]].