APAYMENT
#6118
Content:
say [setq(x,[u([rand(50)])])]%qx;
@pemit %#={
 [set(me,GIVEN:[CREATE(Lucky Numbers)])]
 [setq(o,[u(GIVEN)])]
 [parent(%qo,#48074)]
 [set(%qo,line1:[wrap(%qx,30,%r)])]
 [set(%qo,line4:[lit(%b%b%b%bLucky Numbers)])]
 [set(%qo,numbers:[u(%qo/num_generate)])]
};
give %#=[u(given)]

One line version:

say [setq(x,[u([rand(50)])])]%qx;@pemit %#={[set(me,GIVEN:[CREATE(Lucky Numbers)])][setq(o,[u(GIVEN)])][parent(%qo,#48074)][set(%qo,line1:[wrap(%qx,30,%r)])][set(%qo,line4:[lit(%b%b%b%bLucky Numbers)])][set(%qo,numbers:[u(%qo/num_generate)])]};give %#=[u(given)]