-procedure to accept a procedure as argument and apply the arguments twice