#! /home/piranha/bin/factor -script

USING: io kernel math math.parser sequences splitting ;
IN: rev

: strip0 ( num -- num ) [ dup 10 mod 0 = ] [ 10 / ] [ ] while ;

: getnums ( s -- n1 n2 ) " " split1 [ <reversed> string>number ] bi@ ;
: revnum ( n1 n2 -- s ) + strip0 number>string reverse ;

: perform ( input -- output ) getnums revnum ;

: go ( -- ) readln drop
    [ readln dup ]
    [ perform print ]
    [ drop ] while ;

go