#-------------- concatinate function
define(CAT,$1$2$3)
#-------------- convert to upper case function
define(UP,`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)')
#-------------- convert to lower case function
define(LOW,`translit($1,ABCDEFGHIJKLMNOPQRSTUVWXYZ,abcdefghijklmnopqrstuvwxyz)')
#-------------- extract first letter function
define(FIRST,`substr($1,0,1)')
#-------------- extract rest after the first letter function
define(REST,`substr($1,1)')
#-------------- Generate name with first letter capital rest lower case
define(NAME,`CAT(UP(FIRST($1)),LOW(REST($1)))')
#-------------- check if input is a number function
define(ISNUM,`ifelse(substr(translit($1,-0123456789,~~~~~~~~~~~),0,1),~,1,0)')
define(ISNUMTXT,'$1' is a `ifelse(ISNUM($1),1,number,text)')
#-------------- applications
ISNUMTXT(18)
ISNUMTXT(text)
UP(YourNameHere)
LOW(YourNameHere)
FIRST(YourNameHere)
REST(YourNameHere)
NAME(YourNameHere)
