on *:TEXT:*:#:{
  /set %calc $bytes($calc($remove($replace($1-,k,000,m,000000,b,000000000,x,*,pi,3.141592)$1-,$chr(44),$chr(32))) ,bd)
  if (%calc == 0) /Halt {
    /notice $nick %calc
  }
}