: read-ppm-header # ( stream -- w h )
    >r
    r read-atom drop  # should be P6: assume its ppm
    r read-atom       # width
    r read-atom	      # height
    r read-atom drop  # nb colors: assume 1 byte
    rdrop
;