frozen(Room) :- messages(Room, Ms), last(Ms, L), date(Now), msg_date(L, Then), Now - Then #> TwoWeeks, seconds_weeks(TwoWeeks, 2). frozen('Prolog') :- !, false.