-record(box, {draw :: fun((binary()) -> binary())}).