procedure main()
   write( if "abc" << "xyz" then "abc" else "xyz" ) # abc
   write( if "abc" >> "xyz" then "abc" else "xyz" ) # xyz

   write( if 1  << 2 then 1  else 2 )                # 1
   write( if 12 << 2 then 12 else 2 )                # 12
end

#\fB Lexical ordering, << and >> \fP