sig val mode : '-> bool end