user_age(user,middle).
bel(system,$B;}$D(B(user,$B9XF~95$((B($B%H%i%Y%i!<%:%A%'%C%/(B))).
bel(system,$B;}$D(B(user,$BJ6<:>ZL@=q(B)).
                                      