Mine

on *:TEXT:!calc*:#: { 
  if ($2- == $null) { 
    msg $chan You needed a calculator to figure that out? 
  } 
  else { 
    notice $nick $nick - $2- = $bytes($calc($replace($2-,x,*,k,000,m,00000,pi,$pi)),bd) 
  } 
} 
on *:TEXT:!sqrt*:#: { 
  if ($2 == $null) { 
    msg $chan You needed a calculator to figure that out? 
  } 
  else { 
    notice $nick The square root of $2- is $sqrt($2-) 
  } 
}