CREATE OR REPLACE FUNCTION burncpu (tm INTERVAL)
  RETURNS INTERVAL AS $CODE$
DECLARE
  stmp TIMESTAMP := now()+tm;
  i INT;
BEGIN
  WHILE clock_timestamp()<stmp LOOP
    i:=1;
  END LOOP;
  RETURN clock_timestamp()-now()
END;
$CODE$ LANGUAGE plpgsql;