-record(database, {socket :: tcp:socket(), name :: binary()}).