1    type Size = struct
2        width : u32
3        height : u32
4    
5        def to_string = "$width, $height"
6    
7    def ceil_to_power_of_2 (x : u32) =
8        let mut r = 1
9        while r < x do
10           r *= 2
11   
12       r
13