1:- module(redis_entry, [redis_entry_id/3]).18redis_entry_id(Stamp, Seq, Id), var(Id) => 19 atom_number(Stamp0, Stamp), 20 atom_number(Seq0, Seq), 21 atomic_list_concat([Stamp0, Seq0], -, Id). 22redis_entry_id(Stamp, Seq, Id) => 23 atomic_list_concat([Stamp0, Seq0], -, Id), 24 atom_number(Stamp0, Stamp), 25 atom_number(Seq0, Seq)