Каква е вероятността да се получи най-много една глава, когато две безпристрастни монети са хвърлени ?
"тук s   hh , ht , th  let ee  случай на получаване на една глава e   tt , ht , th  p ( e )  n ( e ) / n ( s )  3 / 4 опция a"
divide(const_2, choose(add(const_3, const_3), const_3))