let taxRate = 0.08m let D = stdin.ReadLine() |> decimal let price = (1.0m + taxRate) * D price |> printfn "%f"