let ``No.373 かけ算と割った余り``() =

  let a, b, c, d = 
    stdin.ReadLine().Split(' ')
    |> Array.map (decimal)
    |> fun args-> args.[0], args.[1], args.[2], args.[3]
  
  (a * b * c) % d
  |> stdout.WriteLine
  ()
``No.373 かけ算と割った余り``()