Names Default To Here( 1 );
Clear Log();
dt = Current Data Table();
cdlg = Column Dialog( sel = ColList( "Select Col", MinCol( 1 ), MaxCol( 1 ) ) );
Resp = cdlg["sel"];
ss = Char( Resp( 1 ) );
sz = Length( ss );
sk = Length( ss ) - 3;
szz = Substr( ss, 3, sk );
selCol = Column( szz );
dt << New Column( "Log of " || szz, numeric, continuous );
Column( "Log of" || szz ) << formula( Log( selCol ) ) ;
 Column("log of" || szz ) <