Find sessions generating alot of redo - oracle database script

SET lines 2000
SET pages 1000 col sid
FOR 99999 col name
FOR a09 col username
FOR a14 col PROGRAM
FOR a21 col MODULE
FOR a25
SELECT s.sid,
       sn.SERIAL#,n.name,
                  round(value/1024/1024, 2) redo_mb,
                  sn.username,
                  sn.status,
                  substr (sn.program, 1, 21) "program",
                  sn.type,
                  sn.module,
                  sn.sql_id
FROM v$sesstat s
JOIN v$statname n ON n.statistic# = s.statistic#  join v$session sn on sn.sid = s.sid where n.name like 'redo size' and s.value!=0 order by  redo_mb desc;