Convert this Scheme code to Prolog language

(define (treemerge t1 t2) (cond ((null? t1) t2) ((null? t2) t1) ((and (list? (car t1))(list? (car t2))) (cons (treemerge (car t1)(car t2))(treemerge (cdr t1)(cdr t2)))) ((and (number? (car t1))(list? (car t2))) (cons (treemap (car t1)(car t2))(treemerge (cdr t1)(cdr t2)))) ((and (list? (car t1))(number? (car t2)))(cons (treemap (car t2)(car t1))(treemerge (cdr t1)(cdr t2)))) ((and (number? (car t1))(number? (car t2))) (cons (* (car t1)(car t2))(treemerge(cdr t1)(cdr t2)))))) (define (treemap c t) (cond ((null? t) '()) ((list? (car t))(cons (treemap c (car t))(treemap c (cdr t)))) (else (cons (* c (car t))(treemap c (cdr t))))))