Generate Wasabi Standard denominarions

stddenom.fsx

let pow b (e:int)  = float b ** e |> int64
let in_range xs = xs |> Seq.takeWhile (fun x -> x <= 137438953472L) |> Seq.toList
let powers_of b = Seq.initInfinite (pow b) |> in_range
let (*) (cs:int64 list) (vs:int64 list) = vs |> List.collect (fun v -> [for c in cs -> c * v])

[1      ] * powers_of 2 @
[1; 2   ] * powers_of 3 @
[1; 2; 5] * powers_of 10

// print them in order
|> List.distinct
|> List.sort
|> List.skipWhile (fun x -> x < 5000L)
|> List.iter (printf "%i ")