#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Encode; Endoper; Iscalar; Litvect; Quadout;

     endoper(quadout(encode(
       litvect("10 10 10 10"),iscalar(123)))); /* 0 1 2 3 */
     endoper(quadout(encode(
       litvect("10 10 10"),iscalar(123)))); /* 1 2 3 */
     endoper(quadout(encode(
       litvect("10 10"),iscalar(123)))); /* 2 3 */
     endoper(quadout(encode(
       iscalar(10),iscalar(123)))); /* 3 */
     endoper(quadout(encode(
       litvect("2 2 2"),iscalar(13)))); /* 1 0 1 */
     endoper(quadout(encode(
       litvect("-2 -2 -2"),iscalar(13)))); /* -1 -1 -1 */
     endoper(quadout(encode(
       litvect("2 0 2"),iscalar(13)))); /* 0 6 1 */
     endoper(quadout(encode(
       litvect("2 2 2"),iscalar(-13)))); /* 0 1 1 */
     endoper(quadout(encode(
       litvect("-2 2 -2"),iscalar(13)))); /* 0 1 -1 */
}