program call_new_way
      integer n,i 
      real c 
      print*, 'enter n&i, n bigger than i'
      read*,n,i 
      c=ifact(n)/(ifact(i)*ifact(n-i))
      print*,'c= ',c 
      end