module3.fs

open System

let GoldenTuples numbers =
  let GoldenRatio = (1.0 + Math.Sqrt(5.0)) / 2.0
  seq {
    for n in numbers do
      yield (n, (float n) * GoldenRatio)
  }

let rec GetNumber numbers =
  printf "Enter the number: "
  let k = Console.ReadLine()
  let couldparse, num = Int32.TryParse k
  if couldparse then
    num :: numbers
  else
    printfn "Error parsing input."
    GetNumber numbers

let rec RunLoop numbers =
  printf "Do you want to add another number (y/n)? "
  let k = Console.ReadLine()
  if k.ToLower() = "y" then
    let newNumbers = GetNumber numbers
    RunLoop newNumbers
  else
    List.rev numbers

[<EntryPoint>]
let main argv =
  let initialNum = GetNumber []
  let rawNumbers = RunLoop initialNum
  let goldenNumbers = GoldenTuples rawNumbers
  for n in goldenNumbers do printfn "%A" n
  0