write an R code for function listSymbols that would give following output

g $<-$ function$()\{$

print$("$Hello world!"$)$

$\}$

g$()$

$[1]$ "Hello world!"

listSymbols$($f $=$ g$)$

symbol definition

$1\{$ base

$2$ print base