-define(current_function_name(), element(2, element(2, process_info(self(), current_function)))).