Add script qrdecomposition in Racket