;; -*-theme-d-*-

;; Copyright (C) 2008-2013 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: translation and running OK


(define-proper-program (tests test44)


  (import (standard-library core)
	  (standard-library console-io))


  (declare <my-tree> :pair)


  (define <my-tree>
    (:tuple <integer> (:uniform-list <my-tree>)))


  (define main
    (lambda (() <integer> nonpure)
      (let ((my-tree <my-tree>
	     (list
	       1
	       (list
		(list 2 null)
		(list
		  3
		  (list
		   (list 4 null)
		   (list 5 null)))))))
	(console-display my-tree)
	(console-newline))
      0)))
