block({
func(lgreater,{sub({
  let(difference,largesub([x],[y])):
  let(text,quote([difference])):
  print_iff([text]=`+0.0',{0},{left([text],1)=`+'})
})}):
func(largetrim,{sub({
  let(scientific,largesci([x])):
  print_largeunsci(<left(elem([scientific],1),[y]+2),elem([scientific],2)>)
})}):
func(largepow,{sub({
  let(result,1):
  let(power,largeabs([y])):
  [power]:do:
    let(result,largemul([result],[x])):
  loop:
  print_iff(lgreater(0,[y]),{largediv(1,[result])},{[result]})
})}):
func(largefactorial,{sub({
  let(result,1):
  [x]:do:
    let(result,largemul([result],[x])):
    let(x,[x]-1):
  loop:
  print_[result]
})}):
func(largefibonacci,{sub({
  let(a,0):
  let(b,1):
  [x]:do:
    let(next,largeadd([a],[b])):
    let(a,[b]):
    let(b,[next]):
  loop:
  print_[a]
})}):
func(integertext,{sub({
  let(text,quote(largeadd([x],0))):
  let(point,instr([text],`.')):
  let(text,left([text],[point]-1)):
  print_iff(left([text],1)=`+',
    {mid([text],2,len([text])-1)},
    {[text]}
  )
})}):
print_`largenum-prg.txt'
})