module Hamming where

import Merge

hamming = 1:(merge (map (* 2) hamming)
                   (merge (map (* 3) hamming)
                          (map (* 5) hamming)))