let set_pagestyle s = pagestyle := s