function _dice(iDices, iFaces){
  result =0
  for(i =0; i <iDices; i++){
    r0 =(Math.random() *10000) %iFaces +1
    r1 =r0 %1
    result +=r0 -r1
  }
  return result
}

function _vowel(ipre){
  chara =''
  isize =48
  vow =(ipre) ?ipre %(isize +1) :_dice(1, isize)
  if (vow %10 <5){
    switch (vow %10){
      case  0: chara ='A'; break
      case  1: chara ='E'; break
      case  2: chara ='I'; break
      case  3: chara ='O'; break
      default: chara ='U'
    }
  }else{
    switch (vow){
      case  5: chara ='AE'; break
      case  6: chara ='AI'; break
      case  7: chara ='AO'; break
      case  8: chara ='AU'; break
      case  9: chara ='EA'; break
      case 15: chara ='EE'; break
      case 16: chara ='EI'; break
      case 17: chara ='EO'; break
      case 18: chara ='EU'; break
      case 19: chara ='IA'; break
      case 25: chara ='IE'; break
      case 26: chara ='IO'; break
      case 27: chara ='IU'; break
      case 28: chara ='OA'; break
      case 29: chara ='IU'; break
      case 35: chara ='OA'; break
      case 36: chara ='OE'; break
      case 37: chara ='OI'; break
      case 38: chara ='OO'; break
      case 39: chara ='OU'; break
      case 45: chara ='UA'; break
      case 46: chara ='UE'; break
      case 47: chara ='UI'; break
      default: chara ='UO'
    }
  }
  return chara
}

function _cons(ipre){
  isize =60
  cons =(ipre) ?cons =ipre %(isize +1) :_dice(1, isize)
  chara =''
  switch (cons) {
    case  1:   chara ='B'; break
    case  2:   chara ='C'; break
    case  3:   chara ='D'; break
    case  4:   chara ='F'; break
    case  5:   chara ='G'; break
    case  6:   chara ='H'; break
    case  7:   chara ='J'; break
    case  8:   chara ='K'; break
    case  9:   chara ='L'; break
    case 10:   chara ='M'; break
    case 11:   chara ='N'; break
    case 12:   chara ='P'; break
    case 13:   chara ='R'; break
    case 14:   chara ='S'; break
    case 15:   chara ='T'; break
    case 16:   chara ='V'; break
    case 17:   chara ='W'; break
    case 18:   chara ='X'; break
    case 19:   chara ='Z'; break
    case 20:  chara ='BW'; break
    case 21:  chara ='BR'; break
    case 22:  chara ='BY'; break
    case 23:  chara ='BL'; break
    case 24:  chara ='CW'; break
    case 25:  chara ='CR'; break
    case 26:  chara ='CY'; break
    case 27:  chara ='CH'; break
    case 28:  chara ='CL'; break
    case 29:  chara ='CK'; break
    case 30:  chara ='DW'; break
    case 31:  chara ='DR'; break
    case 32:  chara ='DY'; break
    case 33:  chara ='DL'; break
    case 34:  chara ='FW'; break
    case 35:  chara ='FR'; break
    case 36:  chara ='FY'; break
    case 37:  chara ='FL'; break
    case 38:  chara ='GW'; break
    case 39:  chara ='GR'; break
    case 40:  chara ='GY'; break
    case 41:  chara ='GL'; break
    case 42:  chara ='JY'; break
    case 43:  chara ='KW'; break
    case 44:  chara ='KR'; break
    case 45:  chara ='KY'; break
    case 46:  chara ='PW'; break
    case 47:  chara ='PR'; break
    case 48:  chara ='PY'; break
    case 49:  chara ='PH'; break
    case 50: chara ='PHR'; break
    case 51: chara ='PHY'; break
    case 52: chara ='PHL'; break
    case 53:  chara ='PL'; break
    case 54:  chara ='TW'; break
    case 55:  chara ='TR'; break
    case 56:  chara ='TY'; break
    case 57:  chara ='VW'; break
    case 58:  chara ='VY'; break
    case 59:  chara ='WR'; break
    case 60:  chara ='VL'; break
  }
  return chara
}

function _finalcons(ipre) {
  chara =''
  isize =7
  cons =(ipre) ?cons =ipre %(isize +1) :_dice(1, isize)
  switch (cons){
    case  1: chara ='R'; break
    case  2: chara ='S'; break
    case  3: chara ='L'; break
    case  4: chara ='Z'; break
    case  5: chara ='X'; break
    case  6: chara ='N'; break
    default: chara ='H'
  }
  return chara;
}

function _name(ins){
  thename =''
  nsize =ins |_dice(2, 2)
  vow = _dice(1, 2) -1
  dp =''
  thename =(vow) ?_vowel(): _cons()
  vow =!vow
  for (ni =0; ni <nsize; ni++){
    if (vow){
      thename += _vowel()
    }else{
      dp =(_dice(1, 2) -1) &&(_dice(1, 2) -1)
      if (dp){
        thename += _finalcons()
      }
      thename += _cons()
    }
    vow =!vow
  }
  if (vow){
    thename += _vowel()
    dp =(_dice(1, 2) -1) &&(_dice(1, 2) -1)
    if (dp){
      thename += _finalcons()
    }
  }
  return thename
}