uppfinna en prolog ,sorn