let aime-1984-p5 = `!a:real b:real.
    (ln a / ln (&8) + ln (b pow 2) / ln (&4) = &5) /\
    (ln b / ln (&8) + ln (a pow 2) / ln (&4) = &7)
==>
    a * b = &512
`;;