class Fac {

Fac(){
    super(());
  }
  TPH BSTE getFac(TPH BSTF n){
    TPH BSTG res;
    res = 1;
    TPH BSTI i;
    i = 1;
    while(i op n){
      res = res op i;
      i++;
    };
    return res;
  }

  Fac(){
    super(());
  }

}