#!/usr/bin/env wolframscript

Import[FileNameJoin @ {DirectoryName[$InputFileName], "..", "tools", "interval.wl"}];

print[value_] :=
    Print[intervalExpression[value] <> ","];

n = 14;

(* initial value of y *)
print[2^(-1/2) Log[2]^n / n!];
print[2^(1/2) Log[2]^n / n!];

Print["----"];

(* Taylor coefficients *)
For[i = 0, i < n, i++,
  print[Log[2]^i / i!];
 ]