-define(C,<<37,37,32,84,104,105,115,32,105,115,32,97,32,115,101,108,102,32,114,101,112,114,111,100,117,99,105,110,103,32,112,114,111,103,114,97,109,46,10,37,37,32,32,32,114,101,112,114,111,100,117,99,101,58,115,116,97,114,116,40,41,10,37,37,32,32,32,32,32,32,99,114,101,97,116,101,115,32,97,32,110,101,119,32,102,105,108,101,32,114,101,112,114,111,100,117,99,101,46,101,114,108,10,37,37,32,32,32,32,32,32,119,104,105,99,104,32,105,115,32,97,110,32,105,100,101,110,116,105,99,97,108,32,99,111,112,121,32,111,102,32,114,101,112,114,111,100,117,99,101,46,101,114,108,10,10,45,109,111,100,117,108,101,40,114,101,112,114,111,100,117,99,101,41,46,10,10,45,101,120,112,111,114,116,40,91,115,116,97,114,116,47,48,93,41,46,10,10,115,116,97,114,116,40,41,32,45,62,10,32,32,32,32,123,111,107,44,32,83,125,32,61,32,102,105,108,101,58,111,112,101,110,40,34,114,101,112,114,111,100,117,99,101,46,101,114,108,34,44,32,91,119,114,105,116,101,93,41,44,10,32,32,32,32,105,111,58,102,111,114,109,97,116,40,83,44,32,34,45,100,101,102,105,110,101,40,67,44,126,112,41,46,126,110,126,110,126,115,34,44,32,91,63,67,44,98,105,110,97,114,121,95,116,111,95,108,105,115,116,40,63,67,41,93,41,44,10,32,32,32,32,102,105,108,101,58,99,108,111,115,101,40,83,41,46,10>>).

%% This is a self reproducing program.
%%   reproduce:start()
%%      creates a new file reproduce.erl
%%      which is an identical copy of reproduce.erl

-module(reproduce).

-export([start/0]).

start() ->
    {ok, S} = file:open("reproduce.erl", [write]),
    io:format(S, "-define(C,~p).~n~n~s", [?C,binary_to_list(?C)]),
    file:close(S).