#!/bin/csh


set number = $1
set pwrs = (0 0)
if( $number ) then
  set base = (2 3)
  foreach ndx (1 2)
    if( $number > 1 ) then
      set pwr = 0
      while( !($number % $base[$ndx]) )
        @ pwr++
        @ number /= $base[$ndx]
      end
      set pwrs[$ndx] = $pwr
    endif
  end
endif

echo $pwrs

exit 0
